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SEQ 0001 



IDENTIFICATION 



PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
MAINTAINER; 
AUTHOR; 



AC-A805E-MC 

C/TEEEO TM03 Ttl6/TU/7 DRIVE FUNCTION TIMER 

15 MARCH 1984 

TAPE DIAGNOSTIC GROUP 
J, HITT 

REVISED TO REV C MIKF PAGE 
?Q MAR 79 
l*»C SHOWS CODE ADDED TO RtV C» 

REVISED TO REV D B . i i Rl ANC 
01 - MAt 1Q«5 

jBl f- IXEO FOR MM* WO * CO 

REVISED TO REV fc J. HI T T 
15 MARCH 1984 
ADO XON/XQFF FUNCTIONAL I T i 

TMf INFORMATION IN THIS DOCUMENT IS y* ,r ~T TO CHANG* WITHOUT 
NOTICE AND SHQULO NOT BE CONSTRUED AS A COMMITMENT Bt DIGTTU 
EQUIPMENT CORPORATION. DIGITAL EUUIPMENT CORPORATION ASSUME * 
NO RESPONSIBILITY FOR ANi ERRORS THAT HAt APPEAR IN THIS DOUWENT, 

Trtt SOFTWARE OESCRIBED IN THIS DOCUMENT IS FURNISHED UNO* R '« 
LICENSE ANO MAY ONI Y BE USED OR COPIED IN ACCORDANCE WITH -HE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIB IL I T i > OH 
THE USE OR RElIABllITt OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPt no Hi DIGITAL . 

COPYRIGHT CO Vi.VaWA &* DIGITAL EQUIPMENT CORPORATION 



c 
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TM03 DfilVE FUNCTION TIMER 

.".;? TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 

TEST NO. 'NAME RELATED ADJUSTMENTS 



StQ 0015 



ASSOCIATED HARDWARE 



1. WRITE FROM BOT 



c\ WRITE START 



3. WRITE SHUTDOWN 



4. WRITE SETTLEDOWN 



5. READ FROM BOT 



6. READ START 



READ SHUTDOWN 



10. READ SETTLEDOWN 



11. READ REVERSE START 



13, READ REVERSE SHUTDOWN 



13. READ REVERSE SETTLEDOWN 



14. TURN AROUND F-R 



15. TURN AROUND R--K 



16. GAP SI/E STOP HALF 



1/. GAP SI/E START HAl F 



NONE 



♦M8931/M8940 R0M*M8933 ACCL CNTR 



FwRD/REV SPEED STAR I 'STUP -RAMPS 



SAMt AS IN TEST It* 



*M8916/M8940 CTU77) SETTLEDOWN C 



♦ M89M/M8940 R0M*M8933 ACCL CNTR 



•M8916/M8940 CTU77) SETTLEDOWN 



•M8931/M8940 R0N*M8953 ACCL CNTR 



♦M8916/M8940 (TU7/) SETTLEDOWN 



♦N8931/M8Q40 R0M*M.893S ACCL CWR 



•CAPSTAN SERwl LOUP 



i?Q* GAP SUE INIERRECURD 



♦tWD^RLV SPEED 
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TM05 DRIVE I UNCTION TIMER 

21. GAP CONSISTENCY 



♦SAME AS IN TEST 16 



SEQ 0016 



♦write clock 



l?u\ DATA TIME 800 BPI 



♦NONE 



'?, DATA TIME 1600 BPl 



♦ 



t >4. ERASE GAP TIMF. 



♦ MH9?1/M8^40 R0M*M8933 ACCL. CNTR 



£ !S. WRITE FILE MARK 



26, TAPE SPEED FORWARD 



♦FWD SPEED 



♦CAPSTAN SERVO LOOP 



J.7. TAPE SPEED -REVERSE 



♦REVERSE SPEED 



♦CAPSTAN SERVO LOOP 



♦♦♦♦♦NOTE: IF TIME PROBLEMS APPEAR IN Tl THRU T25, RUN TAPE SPEED TESTS FIRST******* 
TEST 26 6 27 REQUIRE AN 800 BPI SKEW TAPE 



C/TEEEO TM03 
CZTEEE,P11 



TEltv TU.V Of 1 
06 -APR -H4 Hi 05 



I: ; ' 
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SfcQ 0017 



TN03 DRIVE FUNCTION TIMER 

7,3 SUBTEST DESCRIPTIONS: 

THE FIRST THIRTEEN (13) TESTS (Tl T15) ARF CHECKS OF THE 

ROM CIRCUITS IN THE TE16 (M6931/M8940) , THE ACCL COUNTER IN THE 

TM03 (M8933), AND THb SETTLEDOWN ONE SHOT (M8916/M8940 (TU7/)), 

Tl, WRITE FROM BOT ; 

[HIS TEST WILL MEASURE ACCELERATION DFt.A> REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA, 



1. 
<?. 

3. 

4. 
5. 



ASSURE TAPE IS STOPPED AT BOT, 

ISSUE A WRITE COMMAND 

MONITOR BIT 15 OF TC (ACCL) 

TIME FROM GO TO ACCL RESET IS BOT DELAY 

STOP 

WRITE START: 



THIS TEST WILL MEASURE ACCELERATION DELAt JUST AS IN 
Tl. HOWEVER THE TIME WILL BE LESS WHEN NOT STARTING 

FROM BOT, 



LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 

ISSUE A WRITE COMMAND 

MONITOR BIT 15 0* TC (ACCL) 

TIME FROM GO TO RESET OF ACCL IS START DELA> 

STOP 



T3 WRITE SHUTDOWN: 

THIS TEST WILL MEASURE THE TIME FROM EOR (I AST CHARACTER 
WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME, THIS 
ASSURES, IN PART, A PROPER INTERROCORD GAP. 

1. LEAVE TAPE AT ITS PRESENT POSITION. ASSLffl- THAI X! 15 STOPPED 

2. ISSUE A WRITE COMMAND. 

3. MONITOR FRAME COUNTER AND BIT 4 0> OS (SOWN) 

4. TIME FROM FC-0 TO ASSERTION OF SOWN IS 
THE SHUTDOWN TIME, 

5. STOP 



I- p. 
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T4. WRITE SETTLEDOWNj 

THIS TEST WILL MEASURE THE SLOWDOWN TIME. THE TIME 

FROM THE START OF SLOWDOWN UNTIL. THE TAPE SHOUuD 

BE STOPPED, THIS IS A PART OF THE GAP TIMING IN LOGIC, 

THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 

WILL. BE MEASURED IN A LATER TEST. 

1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 

,\ ISSUE A WRITE COMMAND 

5. MONITOR BIT 4 OF OS CSDWN) 

4. TIME FROM SET OF SDWN TO RESET OF SOWN IS THE 
SETTLEDOWN DELAY 

5. STOP 



T5. READ FROM BOT 

THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 
MEASUREMENT IN Tl. USE THE SAME RECORD THAT WAS 
WRITTEN IN Tl. 

1. REWIND TO BOT 

?. ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 

5. READ FORWARD 1 RECORD. 

4. MONITOR BIT 15 OF TC ( ACCL ) 

5. TIME FROM GQ TO AQCl IS BOT Q£1_AY 
b, STOP 



SEQ 0018 



r.i 

C/H-M'O TM03-TElt> R>.\' Dn MACU1 50U04b) Ofi APR 84 11:0/ PAGE VI 
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THE PROGRAM MA> BF RESTARTED USING START UP PARAMETERS AT ADDRESS 210. 

THE PROGRAM MAl ALSO BE RESTARTEO Ut TYPING A CONTROL C OC). 
A tC RESTART WILL REQUEST PARAMETERS. 

NOTE: AFTER RESTARTING THE SWITCH REGISTER SHOULD 
BE SET TO PROGRAM SWITCH SETTINGS. IF ;»10 
IS LEFT AS THE SWITCH SETTING THE PROGRAM 
WILL SELECT 6 RUN TEST 10 ONLY, SEE SWITCH 
SETTINGS FOR EXPLANATION. 



SEQ 0006 



J. 3 AUTOMATIC MODE OPERATION 

If THE PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODE 

DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED, AND ALL AVAIL 

ABLE TM03-TE16/TU77 COMBINATIONS ARE TESTED. ADDITIONALLY THE SOFTWARE 

SWR IS INVOKED WITH A SWITCH SETTING OF 000000 IF LOADED VIA ACTU. 

NO OPERATOR INTERVENTION IS REQUIRED 

+ * EXCEPTION: U' LOADED VIA TMDP TM05 DRIVE TE16/TU77 St AVE IS 
NOT TESTED. 

**NQTbj IN OREDER TO CHANGE THE DEE Am T SETTING 0> THE r n)t TWARb 
SWR, SET LOCi WbCSWREb;) TO THE DESIRED SETTING. 
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SfcQ 0007 



TM03 DRIVE, f UNCTION TIMER 
SWITCH SETTINGS 



CHAPTFR *> 
SWITCH SETTINGS 



CONTROL: 

1) CONTROL G <tG>; 

SELECTS THE SOFTWARE SWR AND ALLOWS NEW SWITCH St T TINGS. 

THE MACHINE WILL THEN TtPE; SWR-XXXXXXNEW- 

WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SWR , 

AFTER THE ''NEW-'' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 

OF THE FOLLOWING AT THE TTt; 

A) TlPt A NUMBER TO BE LOADED INTO THE SOFTWARE SWR. 

B) IF A «CR> IS THE FIRST KE i DEPRESSEO THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 

^) CONTROL A <*A>; 

ALTERNATES USAGE OF THE SWR BETWEEN HARDWARE 6 SOFTWARE, 

3) CONTROL C < tC» j 
RESTARTS PROGRAM AT 4 >00 

4) CONTROl U * tU»; 

DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REUUEST. 



crn-tro tmo5 

C/TKbt *Pli 



06 - APR 



' : nf t 
tf4 u 



os 
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SEQ 0007 



TM05 DRIVE FUNCTION TIMER 
SWITCH SETTINGS 



CHAPTER *, 
SWITCH SETTINGS 



CONTROL; 

1) CONTROL G <tG>; 

SELECTS THE SOFTWARE SWR AND ALLOWS NEW SWITCH SETTINGS. 

THE MACHINE WILL THEN TYPE: SUR-XXXXXXNEW 

WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SWR . 

AFTER THE ''NEW- 1 ' HAS BEEN TYPED THFN THE OPERATOR CAN DO ONE 

OF THE FOLLOWING AT THE TTt; 

A) TiPE A NUMBER TO Bt LOADED INTO THE SOFTWARE SWR. 

B) IF A <CR> IS THE FIRST KEt DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 

«?) CONTROL A < tA>; 

ALTERNATES USAGE OF THE SWR BETWEEN HARDWARE L SOFTWARE, 

3) CONTROL C *K>i 
RESTARTS PROGRAM AT t >00 

4) CONTROL U * tU»; 

DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REUUEST. 
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'MO* DRIVE FUNCTION TIMER 
ERRORS 



SEQ 0009 



C^ 



CHAPTER 4 

tRRORS 



TWO MPfcS Of ERRORS ARE DETECTED BY THIS PROGRAM, HARDWARE ERRORS AND 
T.NCORECT FUNCTION TIMES. 



4.1 ERROR TYPEOUT FORMAT (HARDWARE): DATA RELATED ERRORS (It: PAR IT t ERROR) 

ARE PRINTED AS SOFT ERRORS AND HAVE NO 
EfPECT ON TIME, 

TEST $ XXXXXX DEVICE ERROR 

CVi WE BA FC CSJ OS ER1 
AAAAAA BBBBBB CCCCCC DDDDDD EEEELE FFFFfE UGGGGG 

WHERE : 

XXXXXX ■- TEST NUMBER 

AAAAAA-IIIII1 - -JONTENTS OF TAPE REGISTER 1 72440- 1 7^4 ?4 



4,c 5 ERROR TiPEOUT FORMAT ( FUNCTION TIME OUT OF RANGE) 
TEST $ XXXXXX OUT OF RANGE f RROR 
RANGE * < AAAAAA- BBBBBB » ACTUAL * CCCCCC 



V i 

1 i 
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1M0J DRlVfc ^UNCTION TIMER 
SUBROUTINE ABSTRACTS 



StQ 0010 



CHAPTER S 
SUBROUTINE ABSTRACTS 

5.1 .SCOPE 

THE SCOPE ROUTINE IS CAKED B* THE SCOPE (EMT) INSTRUCTION AT THE 
.rm\ OF EACH SUBTEST. THE .SCOPE ROUTINE PERFORMS THF FOLLOWING 

> UNCI IONS: 

1. LOADS R5 WITH BASE ADDRESS 

2. PROVIDES CONTINUOUS LOOP <SU14» 

3. MOVES FUNCTION TIME INTO TABLE 

4. OUTPUTS LINE ITEM <SU10>*1 

5. DE' US 350MS BEFORE STARTING TEST 

6. INI T' S DRIVE/SLAVE 

7. CLEARS THE ERROR FLAG (ERFLG) 
tt. CHECK FOR CONTROL G ( *ii* 

THE ROUTINE hONITORS SW14, SW11, SW10, AND SWO«\ 
*».c» PUBLISH 

THE PUBLISH ROUTINE IS CALLED > RQM ThL SCOPt ROUTINl V SWIG fc> fcUUrtl 

TO (PUBIXSH TIME DOCUMENT). THL ROUTINE WILL PRINT A THE TIME 
RECORDED BY THE SUBTEST. 



CMi-.t.t.o tmo3-teu>, ru/; dm 
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SEQ 0024 



TM03 DRIVE FUNCTION TIMER 
V4, ERASE; 



THE ERASE 
INCHES TO 

THIS TEST 
ERASED, 



COMMAND WILL CAUSE AN AREA OK THE THREE 
BE DC ERASED IN THE FORWARD DIRECTION. 
WILL ASSURE THAT THE PROPER DISTANCE IS 



(3) 



1. 

*_ 4 

4, 



S. 



LEAVE TAPE Al ITS PRESENT POSITION. 

ISSUE AN ERASE COMMAND. 

MONITOR DRY (BIT 7 OF DS ) 

THE TIME FROM GO TO DRY WILL BE THE TIME 

REQUIRED TO ERASE 3 INCHES OF TAPE AND WILL 

REFLECT THE DISTANCE. DENSITY IS NOT A FACTOR 

STOP 



T25. TAPE MARK: 

THIS TEST IS ALSO A 

WHEN A TAPE MARK IS 
CREATED BEFORE DATA 



CHECK ON THE THREE (3) INCH 
WRITTEN. A 3 INCH GAP IS 
IS PUT ON TAPE. 



GAP 



1. 
_■> 

5. 
4 . 



5. 



LEAVE TAPF AT ITS PRESENT POSITION 

ISSUE A WRITE TAPE MARK COMMAND 

MONITOR DRY (BIT 7 OF DS ) 

TH€ TIME FROM GO TO DRY WILL BE THE TIME 

REQUIRED TO WRITE THE TM RECORD PLUS THE 

3 INCH GAP. 

STOP 



C/U:MO 1M05 
CZTCEE.P11 



Mr: 



T* 16/TU7"/ on 
06 -APR -84 11:05 
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SE:G OOc'S 



TM03 DRIVE FUNCTION TIMER 

T26. TAPE SPEED FORWARD: 

THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 
THE OPERATOR WILL BE REQUIRED TO MOUNT THE SKEW TAPE 
BEFORE EXECUTING THE TEST, THE SKEW TAPE IS THE ONLY 
WAY TO ASSURE THAT TAPE IS MOVING AT THE PROPER SPEED 
BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE, 



ASSURE TAPE IS STOPPED AT BOT. 
ISSUE A READ FORWARD (800 BPI, 



NORMAL ) 



MONITOR FC FOR FC * 
MONITOR FC FOR FC - 
TIME FROM FC « 800 
FOR TAPE TO TRAVEL 
DIVIDE THE TIME FOR 



THE RESULT 
STOP. 



800(10) 
26400(10) 

TO FC * 26400 

32 INCHES 
32 INCHES BY- 



IS THE TIME REQUIRED 
32. 



IS AN AVERAGE SPEED FOR 1 INCH. 



T27. TAPE SPEED REVERSE: 

THIS TEST IS THE SAME AS TEST 31, BUT SPEED IS 
MEASURED IN THE REVERSE DIRECTION. 

1. ADVANCE TAPE OFF OF BOT. 

2. ISSUE A READ REVERSE. 

3. REPEAT STEPS 3 THRU & IN THt REVERSE DIRECTION. 

4. STOP, 



* 



CZTLEEO TM03-TE16/TU77 DH 
CZTEEE.Pll 06-APR-84 11:05 

1015 

1016 
101 ? 
1018 
10l<* 
10.70 
1021 
10^2 
1023 
1024 
1055 
1026 
1027 
1028 
102* 
1030 
1031 
1032 
1033 
1034 
1035 

1036 100000 

1037 040000 

1038 020000 

1039 004000 

1040 002000 

1041 001000 

1042 000400 

1043 000200 

1044 000100 
1045 

1046 

104 7 
1048 
104^ 
?050 
1051 
1052 
1053 
1054 
1055 
1056 

105 7 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1 066 

106 7 
10*»8 

1070 
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SEQ 0026 



.LIST BIN,LOC,SEQ 
.NLIST MC 
.NLIST TOC 
.LIST ME 
.ENABLE ABS.AMA 

.MCALL $CPVEC.$CPREG, $CATCH t $ TYPE , 
.TITLE CZTEEEO TM03 - TE16/TU77 DFT 
jDRIVE PUNCTION TIMER 
.SBTTL STARTING INSTRUCTIONS 
LOADING AND STARTING PROCEDURE 

LOAD PROGRAM USING ABS LOADER 
LOAD ADDRESS 200 
SET SWITCH OPTIONS 
PRESS START 

RESTART PROCEDURE 

LOAD ADDRESS 210 
SET SWITCH OPTIONS 
PRESS START 



tACTll, . $EOP,$CHAIN 



; SWITCH REGISTER SWITCH ASSIGNMENTS 



5W15- 100000 
5W14* 040000 
5W13* 020000 
SW11* 004000 
SW10* 002000 
SW09» 001000 
SW08* 000400 
SW07- 00200 
SW06» 000100 
RW05-SuOO 

**NOTE: IF . SV15 SW00> = 
SWITCH PtfUSTER. 

CONSOLE COMMANDS 
CONTROL C 
CONTROL. G 
CONTROL U 
RU60UT (DELETE) 



HALT ON ERROR 
LOOP SUBTEST 
INHIBIT ERROR 



TYPE OUT 



INHIBIT SUBTEST 
INHIBIT PUBLISHING 
RING BELL ON ERROR 



ITERATION 

TIME SPECIFICATION 



NOT USED 
CONTINUOUS CYCLE 
RUN TEST SELECTED 
177777 AT STARTUP 



USE SOFTWARE 



RESTART PROGRAM (SAME 
SET NEW SOFTWARE SWI 

DELETE LINE I iPED 
DELETE LAST CHAR 1 \ "Vi 1 



AS START a) 200) 
H REGISTER 



GENERAL REGIS. ER USAGE; 

RO-ADORESS OF 'FC REGISTER (SET Br SCOPE) 
Rl-ADDRESS OF 'OS* REGISTER CSET BY SCOPE) 
R2-RETURN PC FROM TIMER (SET BY EACH TEST) 

R3*INDEX INDICATING PREVIOUS OSCILLATOR POLARITY CSET B> TIMER) 
R4 -CONTAINS 'TICK' COUNT WHEN TIMER IS RUNNING CSET BY TIMER) 

SCOPE) 



,SAVE REGIS IERS ON THE STACK 



R5=ADDR 


ESS OF CS1 (SET BY 


.SBTTL 


MACRO DEFINITIONS 


.MACRO 


SAVE 


JSR 


PC, .SAVE 


,ENDM 


SAVE 


.MACRO 


RESTORE 


JSR 


PC, .RESTORE 


.ENDM 


RESTORE 


. MACRO 


INPUT 



{RESTORE REGISTERS FROM THE STACK 



B. 
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TM03 DRIVE FUNCTION TIMER 

7.1 .1 SAMPLE TIME DOCUMENT FOR TAPE SPEED Tt"»Tb 

TYPE FIRST ADDRESS OF CONTROLLER 172440; 

T>PE TM03 DRIVE &' S TO BE TESTED? ALL 

FOR TM03 DRIVE TYPE SLAVE 0* S TO BE TESTED; ALL ? 

SPEED TESTS ONL>? (YES /NO): NO Y 

♦ TM05 DRIVE FUNCTION TIMES- DRIVE SLAVE 7 TE16 St RIAL 500^ 

♦ 

♦ ►UNCTION TIME(SPECIFICATION) TIMECACTUAl ) 

♦ TAPE SPEED FUO RANGE •< 0?.<> 700 -0?1 700* ACTUAL »0?2500 

♦ TAPE SPEED REV RANGE "< 022700 -QtU700> ACTUAL "022^00 



SEQ 0014 



c 



r*/TtLL°o!? 05 ' T ii*«iy'i , « W ,! « M AC U 1 Wl 10461 Oh APR B4 UsO/ HAUfcM 

wifctt »Pll 06 -APR -04 lt;0!> 

TM03 DfJIVE FUNCTION TIMER 

.*.*? TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 

RELATED ADJUSTMENTS 



TFST NO. 'NAME 



SEQ 0015 



ASSOCIATED HARDWARE 



1, WRITE EROM BOT 



WRITE START 



WRITE SHUTDOWN 



WRITE SETTLEDOWN 



READ FROM BOT 



READ START 



READ SHUTDOWN 



10. READ SETTLEDOWN 



IK READ REVERSE START 



12. READ REVERSE SHUTDOWN 



13. READ REVERSE SETTLEDOWN 



14. turn around f-r 



15. TURN AROUND R K 



16. GAP SI/E STOP HALE 



I/. GAP SI/E START HALF 



2Q* GAP SUE INTERRECURD 



NONE 



♦M8931/M8940 R0M*M8933 ACCL. CNTR 



FwRD/REV SPEED STAR I 'STUP-RAMPS 



SAMt \\\ IN TEST 16 



tUD'RLV SPbEU 



♦M8916/M8940 CTUm SETTLEDOWN C 



•M8931/M8940 R0M*M8933 ACCL CNTR 



*H891h/Mfl940 CTU77) SETTLEDOWN 



♦M8931/M8940 R0rt*M8933 ACCL CNTR 



♦M8916/M8940 (TU7.M SETTLEDOWN 



♦MH931/M8Q40 R0M*M8933 ACCL CWR 



•CAPSTAN SERVO LOOP 



D, 



£i'U£l°n!y 05 ^ lb Ji; ,,; DM MACUl 501104b) Ob APR -84 11:0? PAfif lfi 
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TM05 OR We I UNCTION TIMER 

31 % GAP CONSISTENCY 



♦ SAME AS IN TEST 16 



SEQ 0016 



♦WRITE CLOCK 



cV, DATA TIME 800 BPI 



*NONE. 



,.'?. DATA TIME 1600 BPI 



* •' 



t >4. F.RASfr GAP TIME 



♦MH951/M8940 R0M*M8953 ACCL CNTR 



.'b. WRITE KILE MARK 



" ♦ 



2b. TAPE SPEED FORWARD 



♦FWD SPEED 



♦CAPSTAN SERVO LOOP 



37. TAPE SPEED -REVERSE 



♦REVERSE SPEED 



♦CAPSTAN SERVO LOOP 



♦♦♦♦♦NQT£; IF TIME PROBLEMS APPEAR IN Tl THRU T2f>, RUN TAPE SPEED TESTS FIRST******* 
TEST £b £ 27 REQUIRE AN 800 BPI SKEW TAPE 
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TN03 DRIVE FUNCTION TIMER 

7,3 SUBTEST DESCRIPTIONS: 

THE FIRST THIRTEEN (15) TESTS (Tl T15) ARE CHECKS OF THE 

ROM CIRCUITS IN THE TE16 (M8931/M8940) , THE ACCL COUNTER IN THE 

TM03 (M8933), AND THE SETTLEDOWN ONE SHOT (M8916/M8940 CTU77)). 

Tl. WRITE FROM BOT: 

IHIS TEST WILL MEASURE ACCELLERATTON DELAY REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA, 

1. ASSURE TAPE IS STOPPED AT BOT, 

<?. ISSUE A WRITE COMMAND 

3, MONITOR BIT 15 OF TC (ACCL) 

4, TIME FROM GO TO ACCL RESET IS BOT DELAY 

5, STOP 

T.?. WRITE START: 

THIS TEST WILL MEASURE ACCELLERAT ION DELAY JUST AS IN 
Tl. HOWEVER THE TIME WILL BE LESS WHEN NOT STARTING 
FROM BOT. 

1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 

J\ ISSUE A WRITE COMMAND 

3. MONITOR BIT 15 Of TC (ACCL) 

4. TIME FROM GO TO RESET OF ACCL IS START DELAY 

5. STOP 

T3 WRITE SHUTDOWN: 

THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 
WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME, THIS 
ASSURES, IN PART, A PROPER INTERROCORD GAP. 



1. LEAVE TAPE AT ITS PRESENT POSITION. ASSlKE- THAI IT IS STUPPtD 

2. ISSUE A WRITE COMMANO. 

3. MONITOR FRAME COUNTER AND BIT 4 Of OS I SOWN) 

4. TIME FROM FC-0 TO ASSERTION OF SOWN IS 
THE SHUT 00 WN TIME. 

5. STOP 



I- p 

CVUll.O 1M03 It It. Il'.V DM MACUl 30(104b> 06 APR-84 U:07 PAGE IV 
C/Tttt.Pll Ob -APR -84 11:05 

T4. WRITE SETTLEDOWN; 

THIS TflST WILL MEASURE THE SLOWDOWN TIME. THE TIME 

FROM THE START OF SLOWDOWN UNTIL THE TAPE SHOU.D 

BE STOPPED, THIS IS A PART OF THE GAP TIMING IN LOGIC. 

THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 

WILL. BE MEASURED IN A LATER TEST. 



SEQ 0018 



1. LEAVE TAPE AT ITS PRESENT POSITION, ASSURE THAT IT IS STOPPED 

*\ ISSUE A WRITE COMMAND 

?. MONITOR BIT 4 OF OS (SOWN) 

4. TIME FROM SET OF SOWN TO RESET OF SOWN IS THE 

SETTLEDOWN DELAY 
t>. STOP 



T5. READ FROM BOT 

THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 
MEASUREMENT IN Tl, USE THE SAME RECORD THAT WAS 
WRITTEN IN Tl, 

1. REWIND TO 60T 

?. ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 

3. READ FORWARD 1 RECORD. 

4. MONITOR BIT 15 OF TC (AQCL ) 

5. TIME FROM 130 TO AQCl IS BOT QElAl 
b. STOP 



C/Tm-.O TM03-TI io--Tu;; D* 1 



C/Tttt.Pll 
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ObAPRC 11:05 

T6, READ START 

THIS TEST MEASURES THE SAME DELAY AS IN 1 ?. , 

1, WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED, 

i?. ISSUE A READ FORWARD 01- THE RECORD WRITTEN IN STEP 1. 

5. MONITOR BIT 15 OF TC (ACQ.) 

4. TIME FROM GO TO RFSET OF ACCL IS START DELAY 

5. STOP 

T7. READ SHUTDOWN: 

THIS TEST MEASURES THE SAME DELAH AS IN M. 

I. WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED, 
^. READ FORWARD THE RECORD WRITTEN IN STEP 1. 
3* MONITOR FRAME COUNT AND BIT 4 OF DS (SOWN). 

4. TIME FROM FC-RECORD SIZE CLAST FRAME READ) TO SDUN-1 
IS THE SHUTDOWN TIME, 

5. STOP 

T10. READ SETTLEDOWN: 

THIS TEST MEASURES THE SAME DELAY AS IN T4 . 

1. WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 

2. READ FORWARD THE RECORD WRITTEN IN STEP 1. 

3. MONITOR BIT 4 OF DS (SOWN) 

4. TIME FROM SET OF SOWN TO RESET OF SOWN XS THE 
SETTLEPQWN DELAY. 

5. STOP 



SEQ 0019 



_ 1 



CYim TM03 
CZTbbt.Pll 



TE lb TU/.* Df T 
06-APR-34 H;05 



MACtll 30(1046) Ob APR -84 LliO? PAGE 10 



SfcQ 



OQ^O 



C. 

c. 



TM05 DRIVE FUNCTION TIMER 

Til. READ REVERSE START} 

THIS TEST WILL MEASURE THE START DELAY IN THE REVERSE 

DIRECTION. 



WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

READ REVERSE THE RECORD WRITTEN IN STEP 1. 

MONITOR BIT 15 OF TC (ACCL) 

THE TIME FROM GO TO RESET OF ACCL IS THE START V 1Mb 

STOP 



TIP. READ REVERSE SHUTDOWN 

THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 

DIRECTION. 



5. 



WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

READ REVERSE THE RECORD WRITTEN IN STEP 1. 

MONITOR FRAME COUNTER AND BIT 4 OF DS (SOWN). 

TIME FROM FC-RECORD SIZE (LAST FRAME READ) TO SDWN-1 

IS THE READ REVERSE SHUTDOWN TIME, 

STOP 



T13. READ REVERSE SETTLEDOWN: 

THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 

DIRECTION. 



WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 
READ REVERSE THE RECORD WRITTEN IN STEP I. 

MONITOR BIT 4 OF DS CSDWN) 

TIME FROM SET OF SOWN TO RESET OK SOWN IS THE 

SETTLEDOWN DELAY 

STOP 



T14, TURN AROUND DELAY -FORWARD TO REVERSE 

THIS TEST UILL MEASURE THE TIME REQUIRED FOR THE TAPE 
TO CHANGE DIRECTION. 



LEAVE TAPE AT 

ISSUE A WRITE 
MONITOR BIT 7 
WHEN DRY IS ASSERTED 
READ REVERSE Oy THAT 
MONITOR BIT 15 OF TC 
TIME FROM GO OF READ 
THE TURNAROUND TIME. 
STOP 



ITS PRESENT POSITION. ASSURE 
FORWARD OF AT LEAST PO FRAMES 
OF DS CDRY) 



THAT IT IS STOPPED 



(EOR). IMMEDIATE! l ISSUE A 

RECORD. 

(ACCL). 

REVERSE TO RESET OE ACCL I! 



c/u-'H-'O TMos-rtib- ru.v dm 

C/Tfctb.PU 06-APR-84 11:05 
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SEQ 0021 



TM03 DRIVE FUNCTION TIMER 

T15. TURN AROUND DELAl -REVERSE. TO FORWARD 

THIS TEST WILL MEASURE THE TIME AS IN T14. BUT IN THE 
OPPOSITE DIRECTION. 



S< 



WRITE 1 RECORD. 

ASSURE TAPE IS STOPPED 

READ REVERSE 

MONITOR DRY (BIT ? OF DS) 

WHEN DRt - t, ISSUE A READ FORWARD 

MONITOR ACCL (BIT IS OF TO 

TIMF FROM GO FORWARD TO ACCL * i IS THE TURN AROUND TIME 

STOP. 



C/THH* TMOS-Tl lt>/TU// DF I 
CZYtEE.Pll 06 APR 84 11:05 
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SEG 0022 



CZ 



TM05 DRIVt FUNCTION TIMER 

GAP MEASUREMENTS: 

THE PREVIOUS THIRTEEN (13) ThSTS WERE MEASUREMENTS OF LOGIC 
DELAYS PERFORMED BY THE TM03 OR TE16/TU77 IN ORDER TO ALLOW FOR 
PROPER ACCELERATION AND OECELLERATION OF TAPE ACCORDING TO 
THE DESIRED INTEROCORD GAP C.6 INCHES). THIS TEST, HOWEVER. 
WILL MEASURE THE PHYSICAL SIZE OF THE INTERCOM GAP THAT 
EXISTS ON TAPE AS A RESULT OF THE START/STOP TIMES OF 
THE CAPSTAN ITSEIF. BFCAUSE THE INTERRCORD GAP IS 
CREATED BY TWO ACTIONS, THE START OF MOTION AND THE 
STOP OF MOTION IT IS NECESSARY TO MAKE TWO SfcPERATE 
MEASUREMENTS. A THIRD MEASUREMENT, MADE ON THE FLY. OF 
THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE. 

116. GAP SIZE (STOP HALF) 

THIS TEST UILL MEASURE THE DISTANCE TRAVLED Bi THE TAPE 

IN A STOP CYCLE. IN OTHER WORDS, THE DISTANCE INTO THE IRG. 

WRITE 1 RECORD. 

ASSURE TAPE IS STOPPED. 

3. ISSL* A READ REVERSE OVER THE RECORD 

4. MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ (^C 
THE TIME FROM GO-1 TO FOl IS THE LENGTH OF THE GAP 



1) 



T17. GAP SIZE (START HALF) 



THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL DURING STAR? HP 

1. WRITE 1 RECORD. THEN REVERSE OVER IT, ASSURE TAPE IS STOPPED. 

2. ISSUE A READ FOP'JARD 
5. MONITOR FC TOR FC-1 
4. TIME FROM G0«1 TO FC-1 IS START DISTANCE 



S. 



TOP 



T20. GAP SIZE (INTERRECORO) 

THIS TEST WILL MEASURE THE ENTIRE LENGTH 0> THt IRl ON 
THE FLG. THE TIME VALUE OF THIS TEST SHOULD NOT Bt 
EQUAL TO A SUMMATION OF T16 ANO TW DUf TO THE F AC f THAI 
THE ACCELERATION AND OECELLERATION CURVE'S ARF NOT IN 
EFFECT. THt VALUE HERE SHOULD ACTUALLY BE LESS THAN THt 
SUM OF T16 AND T17. 



WRITE ? RECORDS. 
READ REVERSE OVER THE 
MONITOR DRY (BIT / OF 
WHEN DRV = 1, ISSUt A 
MONITOR FRAME COUNT 
TIME FROM GO-1 OF SECOND 
LENGTH OF THE GAP, 
STOP 



SECOND 
OS ) 
SECONO 



RECORD 

READ RE VERS! 



READ REVERSE TO FC-1 IS The 



k; 1 

C/lt-HO U103-TEltv TU// DM MACYU 30(1046) Ob-APR-84 11:0/ PAGE ?? 
C^TEEE.PU 06-APR-84 H;05 

TM03 DRIVE KUNCUON TIMER 

T21. GAP CONSISTENCY: 

NOW THAT WE HAVE ESTABLISHED THAT THE INTERRCORD 

GAP IS THE PROPER SIZE, LET US DETERMINE THE CONSISTENCY 

OF THE GAP UNDER VARIOUS COMMAND EXECUTION TIMES, 

BY WRITING A SERIES O r RECORDS, EACH WITH A DIFFERENT 

DELAY BETWEEN EXECUTION, WE CAN ESTABLISH THE CONSISTENCY 

OF THE GAPS BY READING THESE RECORDS AND MONITORING 

THEIR INTERRECORD GAPS, ON THE FLY, 

1. REWIND TAPE TO BOT. 

L\ WRIT," ONE (1) RECORD TO GET TAPc OFF BOT 

3. UK [Ik. SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAf 

()► FROM TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS 

4. BACKSPACE 16 RECORDS AND ALLOW THE TAPE TO STOP. 

5. READ FORWARD (NON-STOP) OVER THESE 16 RECORDS, EACH 
TIME MONITORING THE TIME FROM THE END OF RECORD (DRY) 
UNTIL THE FRAME COUNT NEXT GOES FROM TO 1 (FC-1), 

6. THE TIMES FROM DRY TO FC-1 IS THE GAP TIME AND IT 
THOULD REMAIN CONSISTANT FOR ALL RECORDS. 

7. STOP 

♦♦(SEE CTIMTBL IN LISTING FOR GAP TIMES)** 

T22. DATA TIME AT 800 DPI: 

THIS TEST WILL MEASURE THE TIME REQUIRED TO WRITE 

ONE (1) INCH Or TAPE AT 800 BPI. 

BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 

THE TAPE 1 INCH (800 FRAMES), DATA RATE 

CAN BE VARIFIED. 

1. REWIND TO BOT AND ALLOW TAPE TO STOP 

2. WRITE A RECORD AT 800 BPI. 

3. MONITOR DRY (BIT 7 OF DS ) FOR EACH RECORD 

4. THE TIME FROM FC»FC*l TO DRY Will BE THE TIME REQUIRED 
FOR 1 INCH AT THE SELECTED DENSITY 

5. STOP 

T£S, DATA TIME AT 1600 BPI (P£): 

REPEAT STEPS I THRU 5 AT 1600 BPI, 



SEQ 00^3 



CZTLfcE.PU 06 -APR 64 1 1 ; 03 
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5EQ 0024 



TM03 DRIVE: FUNCTION TIMER 

T<?4. ERASE: 

THE ERASE COMMAND WILL CAUSE AN AREA OK THE THREE 

INCHES TO BE DC ERASED IN THE FORWARD DIRECTION. 

THIS TEST WILL ASSURE THAT THE PROPER DISTANCE IS 
ERASED. 



(3) 



1. LEAVE TAPE A) ITS PRESENT POSITION. 

2. ISSUE AN ERASE COMMAND. 

5. MONITOR DRY (BIT 7 OF DS ) 

4, THE TIME FROM GO TO DRY WILL BE THE TIME 

REQUIRED TO ERASE 3 INCHES OF TAPE AND WILL 
REFLECT THE DISTANCE. DENSITY IS NOT A FACTOR 

b, STOP 



T?5. TAPE MARK: 

THIS TEST IS ALSO A CHECK ON THE THREE (3) INCH GAP 
WHEN A TAPE MARK IS WRITTEN. A 3 INCH GAP IS 
CREATED BEFORE DATA IS PUT ON TAPE. 

1. LEAVE TAPF AT ITS PRESENT POSITION 
i 5 . ISSUE A WRITE TAPE MARK COMMAND 

3. MONITOR DRY (BIT 7 OF DS ) 

4. THE TIME FROM GO TO OR) WILL BE THE TIME 
REQUIRED TO WRITE THE TM RECORD PLUS THE 
3 INCH GAP. 

5. STOP 



C/UMO TM05-U.16/TU7/ DFT MACYll 30(1046) 06-APR-84 11:07 PAGE 24 
CZTfcEE.PU 06 APR 84 11:05 

TM03 DRIVE FUNCTION TIMER 

T26. TAPE SPEED FORWARD: 

THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 
THE OPERATOR WILL BE REQUIRED TO MOUNT THE SKEW TAPE 
BEFORE EXECUTING THE TEST. THE SKEW TAPE IS THE ONLY 
WAY TO ASSURE THAT TAPE IS MOVING AT THE PROPER SPEED 
BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE, 

1. ASSURE TAPE IS STOPPED AT DOT. 

2. ISSUE A READ FORWARD (800 BPI, NORMAL) 

3. MONITOR VC FOR FC - 800(10) 

4. MONITOR FC FOR FC - 26400C10) 

5. TIME FROM FC - 800 TO FC - 26400 IS THE TIME REQUIRED 
FOR TAPE TO TRAVEL 32 INCHES 

6. DIVIDE THE TIME FOR 32 INCHES BY 32, 

7. THE RESULT IS AN AVERAGE SPEED FOR 1 INCH. 

8. STOP. 

T27. TAPE SPEED REVERSE: 

THIS TEST IS THE SAME AS TEST 31, BUT SPEED IS 
MEASURED IN THE REVERSE DIRECTION. 

1. ADVANCF TAPE OFF OF BOT. 

2. ISSUE A READ REVERSE. 

3. REPEAT STEPS 3 THRU 6 IN THE REVERSE DIRECTION. 
4 t STOP. 



SEQ 002S 



CZTEEEO TM03-TE 16/ TU7 7 DF" 1 
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1015 

1016 
1017 
1018 
1019 

10*70 

1021 
1022 
1023 

1024 
10.75 
1026 

10?? 
1028 
1029 

1030 
1031 
1032 
1033 
1034 
1033 

1036 100000 

1037 040000 

1038 020000 

1039 004000 

1040 002000 

1041 001000 

1042 000400 

1043 000200 

1044 000100 
1045 

1046 

104 7 
1048 
104Q 
?050 
1051 
1052 
1053 
1054 
1055 
1056 

105 7 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1 066 
1 0*.. 7 
10nM 
10»» 9 
1070 



MACYli 30(1046) 



.LIST 

,NLIST 

.NLIST 

.LIST 

.ENABLE 

•MCALL 

, TITLE 

iORIVE 

.SBTTL 





N2 




-64 11:07 PAGE 24-1 




BIN. IOC 


SEQ 




MC 






TOC 






ME 






ABS.AMA 






SCPVEC, 


JCPREG.SCATCH.STYPE, 


CZTEEEO 


TM03-TE16/TU77 


DET 


FUNCTION 


TirtER 




STARTING INSTRUCTIONS 





SEQ 0026 



$ACT11, .$EOP,$CHAIN 



LOADING AND 
LOAD 
LOAD 



STARTING PROCEDURE 
PROGRAM USING ABS LOADER 
ADDRESS 200 



SET SWITCH OPTIONS 
PRESS START 

RESTART PROCEDURE 

LOAD ADDRESS 210 
SET S 
PRESS START 



SWITCH OPTIONS 



SWITCh REGISTER SWITCH ASSIGNMENTS 



5W15- 


100000 ; 


5W14 = 


040000 ; 


5W13- 


020000 s 


SW11* 


004000 ; 


swio- 


002000 s 


SW09> 


001000 ; 


SW08* 


000400 ; 


SW07« 


00200 j 


SW06* 


000100 ; 


SW05-SUO0 i 


♦♦NOTE: 


IF 'SM15 SWOO> = 




SWITCH ROISTER. 



HALT ON ERROR 

LOOP SUBTEST 

INHIBIT ERROR TYPE OUT 

INHIBIT SUBTEST ITERATION 

INHIBIT PUBLISHING TIME SPECIFICATION 

RING BELL ON ERROR 



NOT USED 
CONTINUOUS CYCLL 
RUN TEST SELECTED 
177777 AT STARTUP 



USE SOFTWARE 



CONSOLE COMMANDS 
CONTROL C 
CONTROL G 
CONTROL U 
RUBOUT (DELETE) 



RESTART PROGRAM (SAME AS START a 200) 
SET NEW SOFTWARE SWT H REGISTER 
DELETE LINE I sPED 
DELETE LAST CHAR V. "tP 



GENERAL REGIS. ER USAGE: 

RO»ADDRESS OF 'FC REGISTER (SET Br SCOPE) 
Rl-ADDRESS OF 'DS' REGISTER (SET BY SCOPE) 
R2-RETURN PC FROM TIMER (SET BY EACH TEST) 

R3*INDEX INDICATING PREVIOUS OSCILLATOR POLARITi (SET B* TIMER) 
R4-C0NTA1NS 'TICK* COUNT WHEN TIMER IS RUNNING (SET BY TIMER) 

SCOPE) 



.SAVE REGIS tt-.RS ON THE STACK 



R5*ADDR 


ESS OF CS1 (SET BY 


.SBTTL 


MACRO DEFINITIONS 


.MACRO 


SAVE 


JSR 


PC. .SAVE 


.ENDM 


SAVE 


.MACRO 


RESTORE 


JSR 


PC, .RESTORE 


.ENDM 


RESTORE 


.MACRO 


INPUT 



jRESTURb REGISTERS FROM THE STACK 



C/TEEEO TM05 


n ifc tu;: of 1 


CZTI-.E1I .Pll 


Ob-APR-84 11*05 


10:i 




10. V 




10*5 




10:4 




10*5 




107t> 




10.- " 




10*8 




10 » 




1080 




1081 




108? 




1085 




1084 




1085 




108t> 




108 ' 




1088 




t 1 ) 


000000 


K P 


000001 


(1) 


00000? 


( P 


000003 




000004 


kP 


000005 


(11 


000006 


k 1) 


00000 * 


CI) 


000000 


c 1; 


000001 


I P 


00000? 


f * ^ 


000003 


(P 


000004 


v 1 ) 


000005 


V 1) 




I ' > 




C 1 ) 


177776 


(I) 


177774 


C 1 ) 


1 7 777? 


c 1 > 


1 7 7 7 70 


CI ) 


17 7560 


(p 


17?56? 


C P 


17 7564 


C P 


17 7566 


I p 




108^ 




( 1 ) 


000004 


C P 


000010 


1 1 j 


000014 


( 1 ) 


000014 


(1 ) 


000014 


C 1 ) 


0000?0 


( 1 j 


0000?4 


< 1 : 


0000^0 


' 1 i 


0000 M 




000060 


(i) 


Q00Q64 



MAC Y It 30(1046) 06 APR 84 

MACRO DEFINITIONS 



1-5 '. 

11:0/ PAGE ?4 ? 



SfcQ 0027 



JSR 

>ENOM 

.MACRO 

JSR 

BVS 

.ENDM 

.MACRO 

JSR 

.ENOM 

.MACRO 

JMP 

.ENDM 

.MACRO 

INC 

.ENDM 



PC, .INPUT 

INPUT 

REWIND 

PC,, REMIND 
99* 

REWIND 
TIMEON 
PC.TIMON 

TIMCHK 
TIMERCR3) 

Sf TGO 
CR5) 



I GET USER INPUT 



jREWIND SLAVE 

I BRANCH IF ERROR ON REWIND 



{TURN TIMER ON 



I GO TO TIMER 6 RETURN VIA R? 



i SF T 'GO' BIT 



.SBTTL REGISTER 
1 1 DEFINITIONS ANO REGIST 
uGENERAL REGISTER ASSIGNMENTS 

R0»*0 

Rl»*l 

R2-*? 

R3-K3 

R4-#4 

R5-*5 

SP-*6 

PC**7 

R10-*0 

RU-tfl 

Rl?-#? 

R13-K3 

M14-#4 

R15-*5 



ASSIGNMfcNTS 



ASSIGNMENTS 



1 {REGISTER ADDRESSES 

7 76 

7 7 74 



PSW- 

SLR- 

PIRQ* 

U6Rf AK 

TKS- 

TKB* 

TPS- 

TPB- 



17 
17 
P 

17 

17 
17 
17 
1/ 



/ 7 7? 
7 7 70 
'."jbO 

756? 
7564 
7566 



j 1 VECTOR ADDRESSES 
ERRVEC-4 
RESVEC-lO 
TBITVFC'14 
TRTVEC-14 
BPTVtC«14 
I0TVFC-?O 

Pfvr c-?4 

|MTVLC-*0 
TMAPVFC- *4 
Tl'VtC- U& 
TPVtC*b4 



jPROCESSER STATUS WORD 

iSTACK LIMIT REGISTER (11/40,11/451 

tPROGRAM INTERRUPT REQ. (11/45^ 

tMICRO BREAK REGISTER C 11/45) 

|KE>80ARD CSR 

jKEyBOARD DATA BUFFER REGISTER 

j TELEPRINTER CSR 

j TELEPRINTER DATA BUTTER REGISTER 



j ADORE 

I ADORE 
1 ADORE 
l ADORE 
I ADORE 
j ADORE 
j ADDRE 
jADDRE 
lAODRl 
lADDRt 
lAUURt 



SS Of ERROR VECTOR 

SS OF RESERVED INST. TRAP VECTOR 

SS OF * T' BIT TRAP VECTOR 

SS OF 'TRACE' TRAP VECTOR 

SS OF 'BREAKPOINT' TRAP VECTOR 

SS OF IOT TRAP VECTOR 

SS OF POWER FAU TRAP VECTOR 

SS OF EMT VECTOR 

SS OF TRAP VECTOR 

SS OF TT> KEiHOARU INI. U C TOR 

SS Ut III PRINTtR INTERRUPT VtCtUK 



c< 



c.Mino \ mo 5 

C/TM.l ".PI I 

IP 



Tl lt> R».\* Of 1 
06 APR 84 US 05 

000 U4 
000.-40 
000^44 
000350 



H AC Til 



30t 1046) 
REGISTER 



06 APR 84 
ASSIGNMENT' 

PARVEC- 114 
PIRVKO«?40 
FPEVtC%?44 
MMVt'C-250 



11:0/ PAGE ?4 3 



SEQ 0028 



l jADDRtSS 


OK 


MA/MF PARITf ERROR VECTOR 


j {ADDRESS 


Of 


PTRQ VECTOR 


j j ADDRESS 


OJ- 


f'l.OAl ING POINT INT . VKTOR 


\ j ADDRESS 


or 


MbM MGMT ERROR TRAP VECTOR 



CVTLH-0 1N05-TI u. iu;; DF 1 
CZTl.t-t ,PU 06 APR 84 11*05 



[)."> 
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SEQ 0029 



10*1 




^O'V 


172440 


uw 




10*4 




10*5 


000000 


10*t> 


000002 


io«: 


000004 


10^6 


000006 


10** 


000010 


uoo 


000012 


1101 


000014 


1102 


000016 


110? 


000022 


1104 


000024 


no* 


000026 


110o 


000030 


no; 


000032 


1108 




110* 




1110 




1111 


000001 


1112 


000000 


111? 


000002 


1114 


000006 


111S 


000010 


1116 


000026 


in; 


000024 


.1118 


000030 


111-* 


000032 


1120 


000050 


1121 


000056 


1122 


000060 


i 4. C. . 


000070 


1124 


0000 76 


112:. 


000100 


112b 


000200 


112 7 


000400 


112t 


001000 


1129 


002000 


1130 


004000 


1131 


020000 


1132 


040000 


1135 


100000 


1134 




1135 


000000 


1 1 36 


000001 


1137 


000002 


1138 


000003 


1 1 l ( i 


000004 


114C 


000005 


1141 


000006 


1142 


00000 / 


114S 


000010 


1144 


000020 


1145 


000040 


U4f> 


000100 



{RH,TM03 TE16/TU// REGISTERS 
TMCS1- 172440 

iTMOS -TE16/TU77 INDEX VALUES 



CSl- 


00 


wo 


02 


BA« 


04 


FC- 


06 


CS2- 


10 


DS- 


12 


ER- 


14 


AS- 


16 


DB- 


> 5 

*.. i.. 


MR- 


24 


DT- 


26 


5N- 


30 


TC- 


32 


.SBTTL 


TM03-TE16/TU77 REGIS 


;RHCS1«CS1(R5) 




CO* 


1 


NGP- 





RUDOFF- 




RUD- 


6 


DRYCLR- 


10 


UFMK- 


26 


ERASE- 


24 


SPCFWO- 


30 


5PCREV- 


32 


WCHKF- 


50 


UCHKR- 


56 


WFWD- 


60 


RDFWO- 


70 


RDREV- 


76 


IE- 


100 


RDV ■ 


200 


A16- 


400 


A17- 


1000 


PSEl - 


2000 


DVA- 


4000 


MCPE- 


20000 


TRE- 


40000 


SC- 


100000 


{RHCS2«CS2(R5) 




DVO- 





ovi- 


1 


DV2- 


t 


DV^' 


» 


DV4 * 


4 


DV r .- 


« 


DVh- 


6 


DV/- 


7 


HA I * 


10 


PA1 « 


.'0 


CI R- 


40 


1R 


100 



{CONTROL STATUS 01 

jBUS AOORESS REGISTER 
{FRAME COUNT 
{CONTROL STATUS *>?. 
iDRIVE STATUS 
{ERROR REG 31 
{ATTENTION SUMMARY 
{DATA BUFFER REG 
{MAINTENANCE REG 
{DRIVE TYPF REG 
{SERIAL NUMBER REGISTER 
{TAPE CONTROL REG 

BITS 



[-. 



'■> 



CZTtEKO TMO? 


TL16/TU7; 


CZTEEF .Pll 


06-APR-8 


114; 


000200 


1145 


000400 


1149 


001000 


1150 


002000 


115 i 


004000 


1152 


010000 


1157 


020000 


11S4 


040000 


1155 


100000 


1156 




1157 


000001 


1158 


000002 


1159 


000004 


1160 


000010 


1161 


000020 


lit?.? 


000040 


lib? 


000100 


1164 


000200 


1165 


000400 


1 1 6 b 


002000 


1167 


004 000 


1168 


010000 


116°) 


020000 


: i ;o 


040000 


ii. 'i 

1 1 72 
1177 


100000 


000001 


1K4 


000002 


1175 


000004 


1176 




1177 


000020 


1178 


000100 


117* 


000200 


1180 


000400 


1161 


001000 


1182 


002000 


1185 


004000 


1184 


010000 


1185 


020000 


1186 


040000 


1187 


075027 


1188 




1189 




11^0 


000100 


1191 




1192 




119* 


002000 


1194 


010000 


1195 


040000 


1196 




1 1 [ > 7 




1198 


001700 


1199 


000320 


1200 


00000<"> 


\.'y>\ 


000400 


U>Qd 


001000 



OFT 
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MACY11 
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TM03-TE16/TU77 


AGISTER BITS 


OR- 


200 


MDPfc - 


400 


MXF* 


1000 


PGE- 


2000 


NEM- 


4000 


NED- 


10000 


UPK- 


20000 


MCE- 


40000 


DL f- 


100000 


iRHDS*DS(R5) 




SLA- 


1 


BOT* 


I- 


TMK- 


4 


IDB- 


10 


SDWN- 


20 


PES- 


40 


SSO 


100 


DPY- 


200 


DPR- 


400 


EOT- 


2C0O 


WRL- 


4000 


MOL- 


10000 


PIP- 


20000 


ERR- 


40000 


ATA- 


100000 


}RHER-ERCR5) 




ILF- 


1 


ILR- 




RMR- 


4 


FMT- 


20 


1NCVAE- 


100 


PEFLRC- 


200 


NSG- 


400 


FCE- 


1000 


C5ITM- 


2000 


NEF- 


4000 


DTF.» 


10000 


DPI- 


20000 


UNS- 


4 0000 


HRDERR- 


UN5!0PI»DTE!NeF!FCUKMT!RMRULR! 


{ RHMR-MR(R5) 




OSC- 


100 


jRHDT-DTCRS) 




SPR- 


2000 


Ch;« 


10000 


TAP- 


40000 


|RMTC-TCl'"'M 




N0RM11- 


WOO 


CDhll - 


720 


BP1200- 





HPIS^fc-' 


000400 


BPISOO* 


0Q100Q 



SfcGl 0030 



jHARDERRQR BITS 



c/n-.Ho 


TM03 


T* 16 TU// D* 1 


CZTEEE. 


Pll 


06 -APR -84 llsOS 


1203 




002300 


1204 




100000 


J .?os 






120t> 






1207 






1208 






IcO* 




104400 


1210 




104000 


1211 




000004 


121? 






1213 






1214 




006466 


1215 




177400 


1216 




177600 


121 ■ 






1216 




000001 


121^ 




000003 


1220 




000007 


1221 




000011 


1222 




000012 


1223 




000015 


1224 




000017 


1225 




000025) 



K 3 
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TM03-TE16/TU77 REGISTER BITS 





PE1600- 


0023C0 




ACCL* 


100000 


{INSTRUCTS ■ EQUATES 




HLT- 


TRAP 




SCOPE- 


EMT 




TYPE- 


IOT 


{MISCELLANEOUS 


EQUATES 




OUTBUF- 


INIT 




FRMCNT- 


-256, 




WROCNT- 


-128. 


i ASCII 


EQUATES 






CNTRLA* 


1 




CNTRLC- 


3 




CNTRLG* 


i 




HT- 


11 




Lt > 


12 




CR« 


15 




CNTRl.O- 


17 




CNTRLU* 


25 



SEQ 0031 



{OUTPUT BUFFER STARTS AT BEG OF PROGRAM 
, FRAME COUNT 
j WORD COUNT 



{ASCII 


CODE 


FOR 


CONTROL A (tA) 


{ASCII 


CODE 


FOR 


CONTROL C ( tC) 


{ASCII 


CODE 


FOR 


CONTROL G (*G) 


{ASCII 


CODE 


FOR 


HORIZONTAL TAB 


{ASCII 


CODE 


FOR 


LINE FEED 


{ASCII 


CODE 


FOR 


CARRIAGE RETURN 


{ASCII 


CODE 


FOR 


CONTROL (to) 


{ASCII 


CODE 


FOR 


CONTROL U I t-U) 



C/Ti-.H-O TH05-riit>- TU.V Of 1 
CZTEEE.PU 06-APR-84 U:05 



g s 



1228 






122* 




000014 


1230 


000014 


000016 


1231 


000016 


oooooo 


1^3J> 


000020 


002640 


1233 


0QQQL2 


oooooo 


1234 


000024 


000026 


1235 


000026 


OOOOOO 


123b 


000030 


004 710 


123? 


000032 


000340 


1238 


OOC034 


004374 


1239 


000036 


000340 


1240 






CI) 






en 




000040 


*n 




000042 


en 


000042 


OOOOOO 


en 




000G46 


en 


000046 


013676 


en 




000052 


en 


000052 


OOOOOO 


en 




000040 


m 






1241 




000060 


1242 


000060 


004216 


1243 


000062 


000200 


1244 






1245 






124 c. 




0001?6 


124? 


000176 


OOOOOO 


1248 






1249 




000200 


1250 


000200 


000137 


1251 




000210 


1252 


000210 


00013/ 


1253 






1254 




000500 


1255 




000600 


1256 






125? 




001000 


1256 






1259 


001000 


17/5/0 


12b0 


001002 


OOOOOO 


1261 


001004 


000 


1262 


001005 


ooo 


1263 


001006 


oooooo 


1264 


001010 


172440 


1265 


001012 


OOOOOO 


1266 


001014 


OOOOOO 


126/ 


001016 


OOOOOO 


1268 


001020 


000020 


1269 






12/0 


001060 


000020 


12/1 


001120 


oooooo 


12/2 


001122 


oooooo 


12 7 ^ 


00U24 


000 



MACUl 30(1046) 06 -APR -84 11:0/ PAGE 24-7 
TM03-TF.16/TU77 REGISTER BITS 

{SETUP TRAP VECTORS 
,'TBITVEC 



SEQ 0032 



006466 
007606 



.WORD 


, *2 


.WORD 


HALT 


.WORD 


.TYPE 


.WORD 





.WORD 


PFVEC*2 


.WORD 


HALT 


.WORD 


.SCOPE 


.WORD 


340 


.WORD 


.HLT 


.WORD 


340 


;ACT11 HOOK *********** 


$SVPO. 




. -42 




.WORD 





. -46 




.WORD 


SENOAD 


. -52 




.WORD 





,«$SVPC 




. -TKVEC 




.WORD 


TKISR 


.WORD 


200 



I SET 'T» TRAP TO TIMER ROUTINE 

{PRIORITY LEVEL 7 

jSET IOT TRAP TO .TYPE ROUTINE 

jPRIOTITY LEVEL 

j POWER FAIL TRAP TO HALT 

jAT PFVEC*2 

j SET EMT TRAP TO .SCOPE ROUTINE 

{PRIORITY LEVEL 7 

I SET TRAP TRAP TO .HI T ROUTINE 

{PRIORITY LEVEL 7 



{SAVE CURRENT LOCATION CTR 



{SET LOCATION 46 

{SET LOCATION 52 * 
{RESTORE LOCATION CTR 



{SOFTWARE SWITCH REGISTER LOC. 176 
.-176 



SWREG: .WORD 





. »200 






JMP 


BOINIT 




. »210 






JMP 


30RSTRT 




. -500 




STKPTR 


• 600 

. -1000 




; PROGRAM TAGS 




SWR: 


17 75/0 




SCPAOR 


.WORD 





DRVNUM 


• BrTL 





SLVNUM 


.BiTf 





SLVPTR 


.WORD 





TMBASE 


.WORD 


IMCS1 


OSCTIM 


.WORD 


c 


GAPDfcl. 


.WORD 





ATIHE: 


.WORD 





ATTMTBl 


. : .OLKW 


16. 


i.APTBl 


.HI KW 


16. 


1)1 [ MM 


.WORD 





OCTAl.O 


. WORD 





GAP j 


.Uilt 






{SOFTWARE SWITCH REGISTER 

;G0 TO START OF PROGRAM 
{RESTART ADDRESS 

? STACK 

{SWITCH REGISTER 

jTM03 DRIVE UNDER TEST 
{TE16/TU7 7 SLAVE UNDER TEST 
{POINTER TO SLAVE TABLE CSl.VTBl.) Hfrl UW 
{BASE ADDRESS OF TM03 - Tt lb'TU/ 7 REGISTERS 
; US/ TICK (56/80 FOR TE16/TU/7) 
{TICKS/MS (18/6 FOR TE16/TU77) 
{CONTAINS ' TICK 1 COUNT 
{EACH ENTRY CONTAINS TIME FOR FUNCTION 
{ENTRIES ARE MADE BY ' SCOPfc ' ROUUNr 
t TIMtS RECORDED By 'GAP CONSISTANCY 
jVARIBLE DELAY 

{CONTAINS GAP <i (USED FOR TST ivn 



TEST 



- < 



C/TER.O 


TM03 •TEUwlU/7 OFT 




CZTEEE, 


Pll Ob -APR -84 11 


:05 


10/4 


001105 


000 




10 .-5 


001106 


000 




1076 


001107 


000 




10 7 7 


001130 


000 




10/8 


001131 


000 




10 :*> 


001130 


000 




1080 


001133 


000 




1081 


001134 


000 




1080 


001135 


000 




i :s3 


001136 


000 




1084 




001140 




1085 


001140 


030460 




108t> 


001140 


031460 




1087 


001144 


030464 




1088 


001146 


033466 




128* 


001150 


0344 70 




l t V-tO 


001150 


000006 




1091 


001160 


000 




1090 




C01I60 




1095 


001160 


000010 




1094 


001170 


000100 




1095 


001070 


000110 




1096 


001400 


0050 15 


000 


1097 


001405 


134 


000 


1098 


0014C7 


060 


000 


1099 


001411 


007 


000 


1300 


001413 


055 


000 


1301 


001415 


040 




1 300 


001416 


000040 




1503 


001420 


0044 76 


000 


1304 




001424 
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SLQ 0033 



1TCNT: 


.BYTE 





TSTNUMj 


.BYTE 





ERFL.G: 


.BYTE 





SKEWFLG 




.BYTE 


PRGFLG: 


.BYTE 





UNTf-ND: 


.BYTE 





TYPFLG: 


.BYTE 





PSCNTr 


.BYTE 





ASELG: 


.BYTE 





TE16: 


.BYTE 
.EVEN 





DIGTA8: 


"01 
"03 
"45 










"67 






"89 




ODIGITS 


.BLKB 


6 




.BYTE 







.EVEN 




DRVTBL: 


.BLKB 


8. 


SLVTBL; 


.BLKB 


64. 


INBUF : 


.BLKB 


72. 


CRLT: 


.ASCIZ 


<CR><LF> 


BKSLSH: 


.ASCIZ 


' V 


ECHO: 


.ASCIZ 


'0« 


BELL: 


.ASCIZ 


< /> 


DASH: 


.ASCIZ 


* . ' 


SPACEO: 


.ASCII 


• » 


SPACE: 


.ASCIZ 


• 


ANGTAB; 


.ASCIZ 
.EVEN 


' >' <HT> 



{ITERATION COUNT 

j TEST ft 

j ERROR FLAG 

jO/1 - DO NOT/DU SKEW (SPEED) TESTS 

I PROGRAM FLAG 

{UNIT FOUND INDICATOR 

{CONTAINS PASS COUNT 
i 1/0 - YES/NO. 
iO/1 - TE16/TU77 



;RESERVE SPACE FOR CONVERTED DIGITS 
j TERMINATOR 

|A 0/-1 * DRIVE NOT TO BE/TO BE TESTED 
l A 0/1 - SLAVE NOT TO BE/TO BE TESTED 
; TELE TYPE INPUT BUFFER 
{MISCELLANEOUS ASCII CHARACTERS 



/■; 



C/TEELO 1M03-Tl.lt. TU.V DM MACY11 
CZTEEE.P11 06-APR-84 11:05 



1306 








130? 








1308 








1509 








1310 








1311 








151? 








1313 


001424 


000000 


000000 


1314 


001430 


036050 


035230 


1315 


001434 


001666 


001546 


1316 


001440 


001522 


001356 


1517 


001444 


002506 


001332 


1318 


001450 


007164 


006344 


1319 


001454 


000500 


000360 


1330 


001460 


000632 


000454 


1321 


001464 


002506 


001332 


1322 


001470 


000500 


000360 


1323 


0014 74 


000562 


000512 


1324 


001500 


002506 


001332 


1325 


001504 


003206 


002056 


1326 


001510 


003206 


002056 


132 7 


001514 


002412 


001666 


1328 


001520 


002234 


001522 


1329 


001524 


002626 


002354 


1330 


001530 


002570 


002234 


1331 


001534 


004540 


004230 


1352 


001540 


004716 


004552 


1333 


001544 


023564 


023110 


1334 


001550 


024240 


0?3/30 


1335 


001554 


004 336 


004172 


1336 


001560 


004336 


004172 


1337 








1338 








3 339 








1340 








134 1 








1342 








134 3 








1544 








1345 








1346 


001564 


002602 


002412 


154 7 


001570 


002652 


002506 


1348 


001574 


002734 


002532 


1349 


001600 


003016 


002424 


1350 


001604 


003016 


002504 


1351 


001610 


C02734 


0021 /6 


1352 


001614 


002652 


002176 


1355 


001620 


002652 


002176 


1354 


001624 


002570 


002176 


1355 


001630 


002570 


00217b 


135* 


001634 


002570 


00217b 


135/ 


001640 


002570 


002176 


1 358 


001644 


0025/0 


002176 


1 359 


001650 


002570 


0021/6 


1 ?>*>o 


001654 


0025/0 


0021/6 


1361 


001660 


002570 


002176 
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.SBTTL TE16 TIME SPECIFICATION TABLE 
THF BELOW TABLE CONTAINS THE TE16 SPECIFIED FUNCTION TIMES 
MICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE 
MICROSECONDS (BY APPENDING A 0). 
FORMAT IS 

.WORD MAX.MIN ;TIME IN MS FUNCTION 



SEQ 0034 



C< 
C2 



IN TENS OF 

TYPED IN 



TEST if 



TE16TTBL: .WORD 


0,0 




I SPARE 






.WORD 


15400. 


,15000. 


i 154. 0-150.0 


WRITE FROM DOT 


T5T001 


.WORD 


00950. 


,00870. 


(9.5-8.7 


WRITE START 


TST002 


.WORD 


00850, 


,00750. 


;tt, 9-8.5 


WRITE SHUTDOWN 


TST003 


.WORD 


01350. 


,00730. 


113.5-7.3 


WRITE STLDUWN 


TST004 


.WORD 


03700. 


,03300. 


{57.0-33.0 


READ FROM BOT 


TST005 


.WORD 


00320. 


,00240. 


{3.2-2.4 


READ START 


TST006 


.WORD 


00410. 


,00300. 


1 4. 1-3.00 


READ SHUTDOWN 


TST007 


.WORD 


01350. 


,00730, 


{13.5-7.3 


READ SETTLEDOWN 


TST010 


.WORD 


00320, 


,00240. 


{3.2-2.4 


RD REV START 


TST011 


.WORD 


00370. 


,00330. 


|3. 7-3,3 


RD REV SKfOWN 


TST012 


.WORD 


01350, 


,00730. 


{13.5-7.3 


RD REV STLOWN 


TST013 


.WORD 


01670, 


,01070, 


{16.7-10. 7 


TRN RND DLY F-R 


TST014 


.WORD 


01670, 


,01070. 


{16. 7-10. 7 


TRN RND DLY R-F 


TST015 


.WORD 


01290. 


,00950. 


{IP. 9-9, 5 


GAP SIZE STOP 


TST016 


.WORD 


01180, 


,00850. 


;11.8-8.5 


GAP SIZE STRT 


TST017 


.WORD 


01430. 


,01260. 


: 14.3 12.6 


GAP SIZE INTER 


TST020 


.WORD 


01400. 


,01180. 


;14.0-11.6 


GAP CONSISANCY 


TST021 


.WORD 


02400. 


,02200. 


{24.0-22.0 


DAT TIME 800BPI 


TST022 


.WORD 


02510. 


,02410. 


{25.1-24,1 


DAT TIME 1600PE 


TST025 


.WORD 


10100. 


.09800. 


{101.0-9G.0 


ERASE 


TST024 


.WORD 


10400. 


,10200. 


{104.0 102.0 


WRT FILE MARK 


TST025 


.WORD 


02270, 


,02170. 


{22,7-21.7 


TAPE SPEED FWD 


TST026 


.WORD 


02270. 


,02170. 


{22.7-21. 7 


TAPE SPEED REV 


TST027 



{NOTE: TEST 26 AND 27 REQUIRE PRERECORDED 800BPI S'EW TAPF . 

, SBTTL TE16 GAP TIME SPtCIF ICAT TON TABLE 
{THIS TABLE CONTAINS THE TE16 GAP SIZE.!; C IN TENS l» MICRU5E C0ND3 ) 
{OF THE 16. GAPS RECORDED BY THE GAP C0NS1STANC* TEST CTST021). 
{NOTE: GAP O'S ARE IN OCTAL. 



FOR EACH 



j .WORD 


MAX, MINI 10) 


{TIME IN MS<. 10) 


GAP if 


DEL At ] 


TE16GTBL: .WORD 


01410. 


.01290, 


tl4,10 12.9 


GAP 


MS 


.WORD 


01450. 


,01350. 


{14,5 13.5 


GAP 1 


1.0 MS 


.WORD 


01500, 


,01370. 


{15.0-13.7 


GAP 2 


2.0 MS 


.WORD 


01550. 


.01300, 


115.513.0 


GAP • 3 


3.0 MS 


• WORD 


01550. 


,01220. 


{15,5-12,2 


GAP 4 


4.0 M«, 


.WORD 


01500. 


,01150. 


{15.0- 11,5 


GAP 5 


5.0 M^ 


,WORD 


01450. 


.01150. 


;14.5 11.5 


GAP 6 


6.0 MS 


.WORD 


01450. 


,01150. 


{14.5 11.5 


GAP - 7 


7.0 MS 


.WORD 


01400. 


,01150. 


{14.0 11.5 


GAP 10 


8.0 MS 


.WORD 


01400. 


,01150. 


j 14.0 11 .5 


GAP U 


9.0 m; 


.WORD 


01400. 


.0U5C. 


1 14. 11.5 


GAP -12 


10,0 M l 


.WORD 


01400. 


.01150. 


{14.0 11.5 


GAP 1 5 


11.1 M; 


. WORD 


01400. 


,01150. 


{14.0 11.5 


GAP 14 


12, 1 M: 


.WORD 


01400. 


,01150. 


{14,0 11.5 


GAP 15 


15.1 Ml 


.WORD 


01400. 


,01150. 


{ L4.0 xi ,;, 


GAP -It, 


14. 1 M: 


.WORD 


01400, 


,01150. 


i 14.0-11.5 


GAP 1 •' 


15.1 M: 



IN Mill 10) 



J 3 



C-T Tt.t t.0 


TM05-H lb. TU/7 


on 


czteee. 


Pll 06-APR-84 


11:05 


13b 5 








1564 








13b 5 








13bb 








136 7 








1366 








13b l » 








1370 


001664 


000000 


000000 


1371 


001670 


012606 


0115/1 


13,'? 


001674 


000520 


000460 


137? 


001700 


000346 


000313 


1374 


001704 


003410 


001717 


13 7% 


001710 


001315 


001M2 


1376 


001714 


000111 


00006/ 


1377 


001720 


000111 


000067 


15 7« 


001724 


003410 


001/1? 


15 -'9 


001730 


000111 


00006/ 


1580 


001734 


000101 


000057 


1381 


001740 


003410 


001717 


138? 


001744 


003500 


002006 


1383 


001750 


003510 


002017 


1384 


001754 


001510 


001231 


1385 


001760 


000642 


000505 


158b 


001764 


001012 


000646 


138 7 


001770 


001034 


0C064 1 


1388 


0017/4 


001515 


0014 34 


1389 


00?000 


001536 


0014 54 


1390 


002004 


00/020 


0064 76 


1391 


002010 


007176 


00664? 


1 39? 


002014 


001560 


001320 


1393 


002020 


001560 


001320 


1394 








1395 








1596 








: 59 .- 








159H 








1 S 1 ' 1 * 








1A00 








1401 








140? 








140? 


002024 


000 7 70 


0006 76 


1404 


002030 


001013 


000717 


1405 


002034 


001033 


00073? 


1406 


002040 


001050 


OOO 74? 


140 7 


002044 


001062 


000 746 


1408 


002050 


001067 


000 74? 


1409 


002054 


0010/2 


000/36 


1410 


002060 


0010 '2 


000/24 


1411 


002064 


001066 


000/04 


141? 


0020 70 


001065 


000660 


1413 


002074 


001046 


00062/ 


1414 


002100 


00102/ 


00057? 


14 IS 


002104 


000 7 76 


000632 


14 1*. 


002110 


000/76 


00063? 


141 ' 


002114 


ooo 7 n. 


000 6 3.1 


1418 


002120 


0007 76 


000632 
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.SBTTL TU77 TIME SPECIFICATION TABLE 
THE BELOW TABLE CONTAINS THE TU77 SPECIFIED FUNCTION TIME 5 
MICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE 
MICROSECONDS (BY APPENDING A 0). 
FORMAT IS 

.WORD MAX.MIN {TIME IN MS FUNCTION 



IN Tt N5 OF 
TYPED IN 



TU77TTBL: .WORD 0,0 

.WORD 5510., 4985. 

.WORD 00336. ,00304 

.WORD 00230, ,00203 

.WORD 01800. ,00975 

.WORD 00717. ,00586 

.WORD 00073, ,00055 

.WORD 00O73. ,00055 

.WORD 01800. ,00975 

.WORD 00073. ,00055 

.WORD 00065. ,0004 7 

.WORD 01800. ,00975 

.WORD 01856. ,01030 

.WORD 01864, ,01039 

.WORD 0840. ,00665 

.WORD 0418. ,00325. 

.WORD 0522.. 0422. 

.WORD 0540., 0417. 

.WORD 0845., 0796. 

.WORD 0862., 0796. 

.WORD 3600. ,03390. 

.WORD 3710., 3490. 

.WORD 00880. ,00720 

.WORD 00880. ,00/20 



SPARE 

55.1- 

3,36- 

2.3-2 

18.0 

7.17- 

.73-. 

. 73 . 

18.0- 

0.73- 

0.65- 

18.0- 

18.56 

18.64 

8,4 6 

4.18 

5 . 22 • 

5.40- 

8.45- 

8 62- 

36.00 

37,10 

8.8-7 

8.8-7 



49.85 

3.04 

.03 

9,75 

5.86 

55 

55 

9.75 

0.55 

0.47 

9.75 
10.3 

-10.39 

.65 

3.25 
22 
17 
96 
96 
33.90 
34 . 90 

. c 

.2 



WRITE FROM BOT 
WRITE START 
WRITE SHUTDOWN 
WRITE STLDOWN 
READ FROM BOT 
READ START 
READ SHUTDOWN 
READ SETTLEDOWN 
RD REV START 
RD REV SHTOWN 
RD REV STLDWN 
TRN RND DLY F R 
RND DLY R F 
SIZE STOP 

size i>rn; 



TRN 
GAP 
GAP 
GAP 
GAP 
DAT 
DAT 



IZE INTER 



CONSISANCY 
TIME 800BPI 
TIME 1600PE 
ERASE 

WRT FILE MARK 
TAPE SPEED FWD 
TAPE SPEED REV 



TAPE 



TEST 



TST001 
TST002 
TST003 
TST004 
TST005 
TST006 
TST007 
TST010 
TST011 
TST012 
TST015 
TST014 
TST015 
TST016 

TST017 
TST020 
TST021 
TSF022 
TST023 
TST024 
TST025 
TST026 
TST027 



SEC 0035 



;NOTE: TEST 26 AND 27 REQUIRE PRERECORDED 800BPI SKEW 

.SBTTL TU/7 GAP TIME SPECIFICATION TABLE 
;THIS TABLE CONTAINS THE TU7/ GAP SIZES I IN TENS Oy MICROSECONDS) FOR ACH 
; OF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TFST fTSTO?n, 
;NOTEt GPP 0' S ARE IN OCTAL. 



.WORD MAX.MiNC 10 J 



TU77UTBL: .WORD 


0504. 


.0446. 


.UORD 


0523 


,0463. 


.WORD 


0539, 


.04 /4. 


.WORD 


0552 . 


,0482. 


.WORD 


0562 , 


,0466. 


.WORD 


056 > . 


.0482. 


.WORD 


05/0. 


,04/8. 


.WORD 


05/0. 


,0468. 


.WORD 


0566 . 


,0452. 


. WORD 


0565. 


,04 32. 


. WORD 


0550 . 


,010/. 


.WORD 


0535. 


,05/". 


.WORD 


0510. 


,0410. 


.WORD 


0510. 


,0410. 


.WORD 


0510. 


,0410. 


.WORD 


0510. 


,0410. 



TIME IN MSI 10) GAP DEI Ay IN MSI 10) 



5 


04 


4 


46 


5 


2 3 


4 


63 


! > 


39 


•1 


/*; 


5 


52 


■4 


8c' 


5 


62 


4 


8 b 


5 


67 


4 


8? 


5 


70 


4 


78 


5 


/O 


•4 


68 


5 


66 


4 


52 


5 


65 


-4 


?? 


5 


50 


4 


o: 


5 


35 


i 


/M 


_i 


10 


4 


10 


5 


10 


4 


10 


, » 


lv) 


4 


10 


5 


10 


.A 


10 



GAP 





MS 




GAP 


1 


0.24 


MS 


GAP 




0.48 


MS 


GAP 


-3 


0. 7? 


MS 


GAP 


4 


0.96 


MS 


GAP 


5 


i . i. % 


MS 


GAP 


6 


1. 14 


MS 


GAP 


/ 


1 .bH 


MS 


GAP 


Yv 


1.4? 


MS 


GAP 


11 


2. 16 


MS 


GAP 


I? 


2,40 


MS 


GAP 


13 


?.64 


MS 


GAP 


14 


i\88 


MS 


GAP 


15 


3.1? 


MS 


GAP 


16 


3 . 3f , 


Ms 


GAP 


17 


3.60 


MS 



K 



*> 



c/iiu.o iN03-n 16 \v: ; ot i 
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1420 








14.71 








1422 








1453 








1424 








1425 








1420 


002124 






1427 


002124 


000000 


000000 


1428 


002130 


036050 


035250 


1429 


002134 


001666 


001546 


1430 


002140 


001522 


001556 


1431 


002144 


002506 


001552 


145."? 


002150 


007164 


006544 


14 3? 


002154 


000500 


000560 


1434 


002160 


000632 


000454 


1435 


002164 


002506 


001352 


14 36 


002170 


000500 


000560 


143 7 


002174 


000562 


000512 


1438 


002200 


002506 


001552 


1439 


002204 


003206 


002056 


1440 


002210 


003206 


002056 


1441 


002214 


002412 


001666 


1442 


002220 


002234 


001522 


1443 


002224 


002626 


002354 


1444 


002230 


002506 


002234 


1445 


002234 


004540 


004230 


1446 


002240 


004 716 


004552 


1447 


002244 


023564 


023110 


1448 


002250 


024240 


023730 


1449 


002254 


004 336 


004172 


1450 


002260 


004336 


004172 


1451 








1452 








145? 








1454 








1455 








1456 








145 7 








1458 


002264 


002544 


002354 


1459 


0022/0 


002652 


002506 


1460 


0022 74 


002722 


002506 


1461 


002300 


002/10 


002474 


146? 


002304 


0025/0 


002260 


1463 


002310 


002556 


002114 


1464 


002314 


002532 


002114 


1465 


002320 


002532 


002114 


1466 


002524 


002506 


00217f» 


146 7 


002350 


0024 74 


0021 7t, 


1468 


002554 


0024 74 


C021/6 


1469 


002 340 


0024 74 


002176 


14/0 


002344 


0024 74 


0021/6 


14/1 


002550 


0024 74 


002176 


14 K: 


002354 


0024 74 


0021 /6 


14 /'. 


002360 


002474 


002176 


14/4 


002564 
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SEQ 0036 



.SBTTL TIMc SPECIFICATION TABLE 



THE BELOW TABLE WILL CONTAIN 
MICROCESONDS. NOTE THAT WHEN 
MICROSECONDS (BY APPENDING A 
FORMAT IS 

.WORD MAX.MIN 
:>TTBL: 

STIMTBLj.WORD 0,0 

.WORD 15400. ,15000. 

.WORD 00950. ,00870. 

.WORD 00850. ,00750. 

.WORD 01350. ,00/30, 

.WORD 03700, ,03300. 

.WORD 00320. ,00240. 

.WORD 00410. ,00300. 

.WORD 01350. ,00730. 

.WORD 00320. t 0D24O. 

.WORD 00370., 00330. 

.WORD 01350. ,00730. 

.WORD 01670. ,01070, 

.WORD 01670. ,01070. 

.WORD 01290. ,00950. 

.WORD OlieO. ,00350, 

.WORD 01430. ,01260. 

.WORD 01350, ,01180. 

.WORD 02400. .02200. 

.WORD 02510. ,02410. 

.WORD 10100. ,09800. 

.WORD 10400. ,10200. 

.WORD 02270. ,02170, 

.WORD 022/0. ,021 70. 



THE SPECIFIED 
TIMES ARE T1PE 
0). 

jTTME IN MS 



FUNCTION TTMf.S IN TENS OF 
D THAT THEY ARE TYPED IN 



FUNCTION TEST it 



t SPARE 

}154.0 150.0 WRITE FROM GOT TST001 

59.5-8.7 WRITE START TST002 

{8.9-8.5 WRITE SHUTDOWN TST003 

113.5-7.3 WRITE 5TLD0WN TST004 

(37.0-33.0 READ FROM BOT TST005 

{3.2-2.4 READ START TST006 

} 4. 1-3.00 READ SHUTDOWN TSTOO/ 

;13.5-7.5 READ SETTLEDOWN TST010 

{3.2-2.4 RD REV START TST011 

;3. 7-3.3 RD REV SHTDWN TST012 

(13.5-7.3 RD REV STLDWN TST013 

816.7-10.7 TRN RNO DLY F-R T5T014 

j 16. 7- 10./ TRN RND DLY R-F VSrOl.5 

UP. 9-9.5 GAP SIZE STOP TST016 

Ul.8-8.5 GAP SIZF STRT TSTOW 

S 14. 3-12.6 GAP SIZE INTER TST020 

U3.5-U.8 GAP CONSISANCY TST021 

{24. 0-22.0 DAT TIME 800BPI TST022 

{25.1-24.1 DAT TIME 1600PE TST023 

1101.0-98,0 ERASE TST024 

U04.0 102.0 WRT FILE MARK TSTC25 

{22.7-21.7 TAPE SPEED FWD TST026 

(22.7-21.7 TAPE SPEED REV TST027 



NOTE; TEST 26 AND 27 REQUIRE 
.SBTTL GAP TIME SPEC 
THIS TABLE WILL CONTAIN THE 
OF THE 16. GAPS RECORDED BY 
NOTE: GAP 0' S ARE IN OCTAL. 



PRERECORDED 800BPI SKEW TAPE. 
IF ICATION TABLE 
GAP SIZES t IN TENS 
THE GAP CONSISTANC 



OF MICROSECONDS) FOR EACH 
l TEST (TST021). 



.WORD 
GTIMTBL: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
. WORD 
.WORD 
.WORD 
. WORD 
.WORD 
.WORD 
ENDTBl : 



MAX.MINC10) 

01580, ,01260. 
01450. .01550. 
01490. ,01550. 
01480, .01540, 
014Cj, ,01200. 
013^0, ,01100. 
013/0. ,01100. 
01370. ,01100, 
01350. .01150. 
01340. ,01150. 
01340, ,01150. 
01340, .01150, 
01340, ,CU50. 
01340. ,01150. 
01340. .0115J. 
01340. ,01150. 



i 1 IMF 
13,8 
14 
14 
14 
14 
15 
13 
15 



7 
13.5 

13,4 
4 
4 

.1 
4 

4 



IN MS(IO) 
■12.6 
13.5 
•13.5 
13.4 
12.0 
•11.0 
.0 
.0 
.5 
.5 



5 
9 
8 

9 
7-11 



13 
13 
13 
1? 
15 
13.4 



11 

11 

-11 

11 

It 
11 
11 
1 1 
11 



GAP ti 
GAP-0 
GAP 1 

GAP -2 
GAP - 3 
GAP 4 
GAP -5 
GAP -6 
GAP 7 
GAP -10 
GAP - 1 1 



GAP 
GAP 
GAP 
GAP 
GAP 
GAP 



U 

15 
14 
15 
lb 
1 7 



DF.l.A* 
MS 
1.0 MS 
2.0 MS 
MS 
MS 
MS 
MS 
7.0 MS 
8.0 MS 
4.0 MS 
10. O Ms 
11.0 MS 

12.0 MS 

15. 1 MS 
14. 1 MS 
15, 1 MS 



IN MSC 10) 



I 3 



c/nu o 


H103-TL 


16, I U.V 


CZTEEK. 


Pll Ob-APR-8 


14/6 






1477 






1478 


002364 


016600 


14 79 


002366 


016630 


1480 


002370 


C16652 


1481 


002372 


036672 


1482 


002374 


016714 


1483 


002376 


016740 


1484 


002400 


016762 


1485 


002402 


017001 


1486 


002404 


017023 


1487 


002406 


017046 


1488 


002410 


017070 


1484 


002412 


017115 


1490 


002414 


017144 


1491 


002416 


017175 


1492 


002420 


017226 


1493 


002422 


017254 


1494 


002424 


017303 


1495 


002426 


017333 


1496 


002430 


017356 


1497 


002432 


017402 


1498 


002434 


017427 


1499 


002436 


017451 


1500 


002440 


0174/4 


1501 


002442 


017516 


1502 






1503 






1504 


002444 


010172 


1505 


002446 


010466 


1506 


002450 


010552 


150 7 


002452 


010630 


1508 


002454 


010720 


1509 


002456 


011026 


1510 


002460 


011112 


1511 


002462 


011176 


151? 


002464 


011276 


1513 


002466 


0J1416 


1514 


0024 70 


011514 


1515 


0024/2 


011624 


1516 


0024 /4 


011764 


151 .' 


0024 76 


012056 


1518 


002500 


012164 


1519 


002502 


012260 


1520 


002504 


012370 


1521 


002506 


012510 


1522 


002510 


0HO14 


1 52 3 


002512 


013144 


1524 


002514 


0132M 


1525 


002516 


0H414 


15. r. 


<.m\ -.20 


01* 750 


152? 


OOc^J 


014106 
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SE.Q 0037 



,SBTTL TEST HEADER 
THE BELOU TABLE CONTAINS POINTERS TO EACH TEST'S DESCRIPTOR 



NAMPTRj .WORD 


A.TOOO 


.WORD 


A.T001 


.WORD 


A.T002 


.WORD 


A.T003 


.WORD 


A.T004 


.WORD 


A.T005 


.WORD 


A.T006 


.WORD 


A. TOO'/ 


.WORD 


A.T010 


.WORD 


A.T011 


. WORD 


A. 1012 


.WORD 


A.T013 


.WORD 


A.T014 


.WORD 


A.T015 


.WORD 


A.T016 


.WORD 


A. 7017 


. WORD 


A.T020 


.WORD 


A.T021 


.WORD 


A.T'222 


.WORD 


A.T023 


.WORD 


A.T024 


.WORD 


A.T025 


.WORD 


A.T026 


.WORD 


A.T027 


{TABLE QF TEST 


STARTING ADDRESSES 


TSTTBLj .word 


T5T000 


.WORD 


TST001 


.WORD 


TST002 


.WORD 


TST003 


.WORD 


TST004 


.WORD 


TST005 


.WORD 


T5T006 


.WOWO 


TST007 


.WORD 


TST010 


.WORD 


TSTOU 


.WORD 


TST012 


.WORD 


TST013 


.WORD 


TST014 


.WORD 


TST015 


WORD 


TST016 


.WORD 


TST01/ 


.WORD 


TST020 


.WORD 


T5T021 


.WORD 


TST022 


. WORD 


TSI023 


.WORD 


TST024 


.WORD 


T5T025 


. WORD 


..• '02 s 


. WORD 


TSiO.'V/ 



2 



22 M: : 

c:nit . 

IV * 
1W 

155: 
i'>v 
1V*3 
l r »34 
1535 
153* 

153 * 

153^ 
lb 40 

154 ■ 
154."* 

154 3 

i:>44 

154 r * 
154* 
154 ' 
1548 
154* 
1550 
C 1) 
Cl) 

c n 

( n 
i i) 
en 

Cl 'i 
Cl) 
Cl) 

tl) 
en 

tn 

t 1 ) 
Cl) 

( i) 
en 
en 
en 

en 

1 1 ) 

Cl) 

en 
en 
en 
c i ) 
i n 

Cl ) 

( n 
( i) 
en 

Cl ) 

ci ) 

Cl ) 
Cl) 



? t 



0* <\PK 



■ ;it - 
*4 11:05 



MAC i 1 1 



<XW4 000000 



00252* 

002534 
002536 
002542 
002546 
002552 
002556 
002 56 2 
002566 
0025 '4 
002576 
002602 
002610 
002614 



002616 

002*1 ; 

002620 

002621 

002622 
002624 
002626 
002650 
002651 
002652 

002636 

002640 

002642 
002646 
002654 

002660 
002664 
002666 
002672 
0026 76 
002 700 
002 »'04 
00. 706 
002710 



022/37 

00102 7 
004 73 7 
000004 
01 '702 
004 737 
000004 
004 737 
122 737 
001405 
004 73? 
0137 77 

004 73 7 
00020 7 



000011 

000 
002 
000 

000 
177564 
17 7566 

000000 
000 
000 
005015 
0026 36 
000000 

010046 
017600 
062766 
105037 

105737 

001410 
000004 
105737 
100006 
00503 7 
000207 
112046 
001003 



003654 
001122 
003174 



000 



000002 
000002 
002631 

002631 

002632 

002636 

002636 
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176170 



000002 



SEQ 0038 



T IB; 



,UORD 



s ROUTINE TO LOAU SOFTWARE 5WR 



0001*6 001000 L'iTSWR: 

003152 
017545 
1 76226 
003224 
017554 
004070 
000015 



1* 
2$ 



CMP 4SWREG.SWR 

BNF ?% 

JSR PC,. SAVE 

TtPE.L.SUR 

MOV 3SWR.R2 

JSR PC.TYPOCT 

TYPE.L.NEU 

JSR PC,. INPUT 

CMPB OCR.afllNBUF 

BEQ 1$ 

JSR PC.CNVTAO 

MOV a^OCTALO.aSWR 

JSR PC,, RESTORE 

RTS PC 



{BRANCH IF SOFTWARE SWR 

j NOT INVOKED 

;SAVE REGISTERS ON THE STACK 



jGFT USER INPUT 

lEXIT IF FIRST CHAR IS <CR> 

jCONERT ASCII TO OCTAL 

{SET NEW SWITCH REG CONTENTS 



. SBTTL PROGRAM SUBROUTINES 

.SBTTL TYPE SUBROUTINE 

; {ROUTINE TO TYPE ASCII MESSAGE, MESSAGE MUST TERMINATE WITH A BYTE. 
{{THE ROUTINE WILL INSERT A NUMBER OF NULl CHARACTERS AFTER A LINE FEED. 
{{CALL; TYPE ;jA TRAP TlPf. INSTRUCTION 

{{ MESADR {{MESADR IS FIRST ADDRE55 OF ASCIZ STRING 

ROUTINE BELOW 

HORIZONTAL TAB 
CONTAINS NULL CHARACTER 
CONTAINS i> OF FILLER CHARACTERS 
CONTAINS TELEPRINTER AVAILABLE FLAG 
0/377 - AVAIL/NOT AVAIL 
CONTAINS KEYBOARD AVAILABLE FLAG 
ADDRESS OF TLEPRINTER STATUS REGISTER 
ADDRESS OF TELEPRINTER DATA BUFFER 
FLAG FOR XON/XOFF PROCESSING 
CONTAINS # Of CHARS T1PED 
CONTAINS CONTROL CHAR (IF TYPED) 



SAVE RO 

GET MESSAGE ADDRESS 
; {ADJUST RETURN PC 



: j TAGS 


USED BY 
SHT-U 


THE TYPE R 


$NUl.L: 


.BYTE 





5 FILL: 


.BYTE 


2 


$TPFLG: 


.BYTE 





JTKFLG: 


.BYTE 





*TPS: 


.WORD 


17 7564 


*TPB: 


.WORD 


177566 


5CTRLS: 


.WORD 





5CHARCNT: .BYTE 





5CNTRL0 


: .BYTE 





$CRLF: 


.ASCI/ 
.EVEN 


<15><12> 


RDSW: 


.WORD 





.TYPE: 


MOV 


RO. (SP) 




MOV 


tt2( SP ) , RO 




ADD 


<>?. , 2( SP ) 




CLRB 


5CNTRL0 


TyPFI: 


rsiB 


*CNTRLO 




BEQ 


T1PE2 


TCRLF": 


T>PF.,$CRl.F 




TSTB 


RDSW 




BPl 


TYPE 3 




Cl R 


RDSU 




h i s 


PC 


TYPE2: 


M0V8 


(RO). , -(S 




BNE 


T1PE4 



jjBRANCH IF CONTROL U( *U) WASN'T TtPED 
; {TYPE <CR><LF> 



jPINh CHAR ACT tR 10 

{BRANCH IF NUT THE 



BE TiPl.D JNTO STACK 
TERMINATOR 



N3 



CZT 



TM03-TE16/TU77 DM 

• PI 1 06 -APR -84 11:05 



1 
1 
1553 



002712 
002714 
002716 

002720 
002724 

002726 
002732 
002 736 
002740 



002744 
002750 
C02752 
002756 

002 760 
002764 
002766 
002772 
002774 
003000 
003002 
003010 
003012 
003020 
003026 
003030 
003034 
003036 
003044 
003046 
003052 

003054 
003062 
0030/0 
0030 70 
003100 
003106 

003 MO 
003116 
003120 
003124 



003126 
003132 
003136 
003144 
003146 
003150 



005726 
012600 
000002 

122716 

ooi50r 

004737 
122726 
001350 
013746 



105366 
002770 
004737 
000772 

105737 

100433 
105777 
100372 
105737 
100767 
122737 
001403 
116677 
122766 
001003 
105J37 
000406 
122 766 
002002 
105237 
000207 

113737 

142737 
122737 
001004 
112737 
000724 
122737 
001320 
105037 
000715 



112716 
004 73/ 
132737 
001372 
105726 
000643 



000011 

002760 
000012 

002616 



000001 
002760 

177560 
177630 
002626 
000017 

000002 

oooo in 

002630 
000012 
002630 

177562 
000200 
000023 

000377 

000021 

002626 



000040 
002760 
OOC007 



MACY11 30(1046) 

TYPE3: 
TYPE4: 
3$: 

4$: 

5$: 



002631 

1?7604 
000002 



002627 
00262 7 
002627 

002626 

002627 



002630 



6$: 



000002 7$; 



8$: 
9$: 



10$ 



06 APR -84 11:07 
TYPE SUBROUTINE 
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SEQ 0039 



TST (SP)» 

MOV (SP)f,RO 
RTI 

CMPB #$HT,(SP) 

BEQ 11$ 

JSR PC, 5$ 

CMPB #12,CSPV 

BNE TYPE1 

MOV JNULL.-CSP) 



DECB HSP) 

BLT 3$ 

JSR PC, 5$ 

BR 4$ 

TSTB TK5 

BMI 9$ 

TSTB a$TPS 

BPL 5$ 

TSTB $CTRLS 

BMI 5$ 

CMPB #17,a#$CNTRLQ 

BEQ 6$ 

MOVB 2(SP),S$TPB 

CMPB #15,2(SP) 

BNE 7$ 

CLRB $CHARCNT 

RR H $ 

CMPB 412.2CSP) 

BGE 8$ 

1NCB $CHARCNT 

RTS PC 

MOVB TKB.SCTRl.Sa 

BICB #200,$CTRLS*1 

CMPB #23, JCTRLS*1 

BNE 10$ 

MOVB #37 7, JCTRLS 

BR 5$ 

CMPB #21. $CTRLS*1 

BNE 5$ 

CLRB $CTRLS 

BR 5$ 



j;HORIZONTAl TAB ^HT> PROCESSOR 

11$: MOVB «40,CSP; 

12*: vJSR PC, 5$ 

BITB #7,$CHARCNT 

BNE 12$ 

TSTB (SP)* 

BR TYPE1 



POP TERMINATOR CHAR OFF THE STACK 
RESTORE RO 
RETURN TO CALLER 



;j BRANCH IF HORIZONTAL TAB <HT> 



TYPE CHARACTER 

CHECK IE CHARACTER WAS A LINE FEED 

BRANCH IF NOT LINE FEED 

GET # OF FILLERS REQUIRED AND FILLER 

CHARACTER. 

DECREMENT FILLERS RF.Q. COUNT 

BRANCH IF NO MORE FILLERS ARE REQUIRED 

TYPE FILLER CHARACTER 



SEE IF INPUT AVAILABLE- 
BRANCH IF SO 
WAIT FOR OUTPUT DEVICE 

SEE IF WE'RE IN XOFF '1C')E 

IF SO, WAIT FOR XON 

CHECK IF CONTROL W TtPED 

STOP TYPING MESSAGE I *C WAS TYPED 

OUTPUT CHARACTER 

BRANCH IF NOT <CR> 



; CLEAR CHARACTERS TYPED COUNT 
I j BRANCH IF *LF> OR 'NULL' 
j j INCREMENT CHARACTER TYPED COUNT 



:MOVE CHARACTER INTO B-.:-TER 
j CLEAR PAR < BIT 
; SEE IF XQFl' TYPED AT KEYBOARD 
;\r SO THEf. 
i ;SET XOFF FLa'.G 



SEE IK XON TYPED 
IF SO THEN 
CLEAR XOFF FLAG 



:LOAD 
:TYPE 



SPACE 
SPACE 



{TYPE SPACES UNTIL A 
j OF 8 CHARACTERS HAVE 
j POP SPACE 
{GET NEXT CHARACTER 



MULT I PIE 
BEEN TYP:,u> 



j SUBROUTINE TO SAVE GENERAL REGISTERS ON THE STACK 
;CALL: SAVE 



C2TEEE0 


TM03TE16- ru/: 


Di T 


czte.ee % 


Pli 06 -APR -84 


11:05 


1554 


005152 


010546 




1555 


003154 


010446 




155b 


003156 


010346 




155 7 


003160 


010246 




1558 


003162 


010146 




1559 


003164 


010046 




1560 


00316b 


016646 


000014 


1561 


003172 


000207 




15b J 








15b? 








1564 








1565 


003174 


01 2666 


000014 


156d 


003200 


012600 




156.' 


003202 


012601 




1568 


005204 


012602 




1569 


003206 


012603 




1570 


003210 


012604 




15 n 


003212 


012605 




15 ,V 


003214 


000207 




15*? 








15/4 








1575 








1576 








157/ 








1578 


003216 


11065 7 


001133 


1579 


003222 


000402 




1580 








1581 








1582 








1585 








1584 








1585 








1586 


0C3224 


105037 


001133 


1587 


003230 






(1) 


003230 


004737 


003152 


1588 


003234 


012704 


001153 


1589 


003240 


005003 




1590 


003242 


010201 




1591 


003244 


006302 




1592 


003246 


0O6103 




1593 


003250 


012700 


000006 


1594 


003254 


000404 




1595 








1596 


003256 


006302 




1597 


003260 


006103 




1598 


003262 


005301 




1599 


003264 


001374 




1600 


005266 


012701 


00000 5 


1601 


005272 


116524 


001140 


1602 


003276 


005005 




160? 


005 500 


005300 




1604 


00 5302 


001565 




1605 


0C3 504 


105757 


00115 5 


1606 


005510 


001002 




160 ' 


005512 


QQQQQ4 


QOUSi.' 


1608 


003316 







NACY11 30(1046) 06 APR -84 11:0/ 



TYPE SUBROU 



. SAVE : 



MOV R5. (SP) 

MOV R4 , • ( SP ) 

NOV RS,.(SP) 

MOV R2.CSP) 

MOV Rl.CSP) 

MOV RO.-(SP) 

MOV 14CSP), (SP1 

RT5 PC 



INE 



PAGE 24 15 



SEQ 0040 



I SAVE REGISTERS ON THE STACK 



I GET RETURN PC 
j RE TURN 



iSLtfROUTINE TO RESTORE GENERAL REGISTERS FROM THE STACK 

iCAl.1 : RESTORE 

.RESTOREtMOV (SP)»,14(SP) { MOVE RE TURN PC 

MOV (SP)*.RO iRESTORE REGISTERS 

MOV CSP)»,R\ 

MOV (SP)*,R2 

MOV (SP)»,R3 

MOV fSP)».R4 

MOV (SP)*,R5 

RTS PC iRETURN 



I SUBROUTINE TO CONVERT OCTAL DATA TO ASCII 



: CALL: 

I 



MOV 
JSR 



CNVOCT: MOVB 
OR 



NUMBER, R2 
PC, CNVOCT 

SP.TtPFLli 

CNVTO 



j MOVE NUMBER TO R2 
jSE r 00 NOT TtPE R.AG 



.SBTTl. OCTAL TO ASCII L TiPE ROUTINE 

jSUBROUTINE TO CONVERT OCTAL NUMBER TO ASCII AND T t PE IT OUT 



j CALL: 



i 



MOV NUMBER. R2 

JSR PC,TyPOCT 



TyPJCTj CIRB 

CNVTO: 

JSR 

MOV 
CLR 
MOV 
\%X ASL 

ROi 
MOV 
BR 



NOTYPf LG 

PC. SAW 

00DIGITS.R4 

05 

R2 . R 1 

R2 

R5 

06.R0 
M 



21 j 



51 



4ft 



ASl R2 

ROI R5 

Dec Rl 

BN* .1 

MOV ©5.RI 

MOVH OIGTAHlR5).(R4)t 

CLR R5 

Of C RO 

HNI 21 

CHI blOTiPELU 

tlNt A\ 

liPCUDtUIIS 



jPUT IN R2 
(CALL ROUTINt 

j SET TiPE R.AG 

I SAVE REGISTERS ON THE STACK 

|SE T PTR TO OUTPUT 

jR5 Will CONTAIN OCTAL DIGIT 

jGf T TO BE TYPED 

I SHIFT 

I SET DIGIT COUNTER 

l SHUT 3 PLACES LEFT 



|St T SHI* T COUNTER 

j MOVE ASCII F.QUIV TO OUTPUT 

iDECRtMENT DIGIT COUNT 
»Gf T NEXT DIGIT 
» BRANCH l> ASCII IS 
iNUI TO Uk T>PLD 



CJ\ 



c/mt.o 


imos n 


lb hi/; 


IV 1 


CZTEEF . 


PI 1 06 -APR 84 


11:05 


v n 


003316 


004 73 7 


003174 


1609 


003322 


000207 




IMO 








1611 








ui: 








1M? 








1M4 








1615 








1Mb 


005324 


11063 7 


001133 


im: 


003330 


000402 




1618 








lrl^ 








1620 








1621 








1622 








lo23 


003332 


105037 


001133 


1624 


003336 






il) 


003336 


004737 


003152 


1625 


003342 


005000 




1626 


003344 


012704 


001 IS? 


1627 


003350 


005003 




1628 


003352 


166002 


0034 32 


lfc29 


003356 


103402 




1630 


003360 


005203 




1631 


003362 


000773 




163c? 


003364 


066002 


003432 


1633 


003370 


116324 


001140 


1634 


003374 


062700 


0OO002 


163b 


003400 


005760 


0034 32 


1636 


003404 


001361 




1637 


003406 


112 724 


000060 


1638 


003412 


105737 


001133 


1639 


003416 


001002 




1640 


003420 


000004 


001152 


1641 


003424 






(1) 


003424 


004737 


003174 


164? 


0034 30 


000207 




1643 








1644 


003432 


023420 




164 5 


0034 34 


001750 




1646 


0034 36 


000144 




164 7 


003440 


000012 




1648 


003442 


00000 1 




1649 


003444 


000000 




1650 








165 1 








1652 








165 3 








16S4 








1655 








1656 








165.* 








1658 








1659 








16*0 








1661 
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OCTAL TO ASCII & TYPE ROUTINE 



SfcQ 0041 



J5R 
RTS 



i SUBROUTINE 
j CALL j MOV 
j JSR 



TO 



PC i. RESTORE 

PC 



CONVERT OCTAL 
NUMBER ,R2 
PC.CNVDEC 



jRtSTORE REGISTERS FROM THE 5 TACK 



DATA TO DECIMAL ASCII 

I MOVE NUMBER TO R2 



l SET DO NOT TYPE f I AG 



CNVDEC: MOVB SP,B«TYPFLG 

BR CNVTD 

♦SBTTL OCTAL TO DECIMAL t TYPE ROUTINE 

{THIS ROUTINE CONVERTS AN OCTAL ft TO DECIMAL ASCII AND TYPES 
i CALLs MOV NUMBER, R2 jPUT IN R2 

j JSR PC.TYPDEC (CALL ROUTINE 



IT OUT 



TyPDEC: 


Cl.RB 


©OTYPKLG 


CNVTD: 








JSR 


PC, SAVE 




CLR 


RO 




MOV 


*0DIGITS,R4 


1$: 


CLR 


R3 


2it 


sue 


DC0NSUR0),R2 




BLO 


3* 




INC 


R3 




BR 


21 


$%i 


ADD 


DC0NSTCR0),R2 




MOVB 


DIGTAB(R3).(R4)* 




ADD 


02, RO 




TST 


DCONST(RO) 




BNE 


1$ 




MOVB 


, 0,(R4)> 




T5T8 


BOTYPFLG 




BNE 


4$ 


4*5 


TYPE,ODIGITS 


JSR 


PC,. RES TORE 




RTS 


PC 


DCONSTs 


.WORD 


10000. 




.WORD 


1000, 




.WORD 


100, 




.WORD 


10, 




.WORD 


1. 




.WORD 






ON THt STACK 
DECIMAL CONSTANT 



I SET TYPE FLAG 

I SAVE REGISTERS 

iRO IS INDEX TO 

jSET OUTPUT PTR 

;R3 CONTAINS DECIMAL DIGIT 

jSUBTRACT DECIMAL CONSTANT UNTIL 

t INPUT GOES NEGATIVE 

iKEEPING TRACK OF SUBTRACTIONS 

jAOD BACK CONSTANT WHEN NEGATIVE 
jMOVE ASCII EQUIVIL.ENT 
:NEXT CONSTANT 

j I'M TIL ALL CONSTANTS DONE 



jL AST DIGIT IS 
(BRANCH If ASCII 
I NOT TO BE TYPED 



IS 



(RESTORE REGISTERS FROM THE STACK 



{TERMINATOR 

.SBTTL TYPE SPECIF IED TIMES ROUTINE 

i THIS SLGROUTINf OUTPUTS THE TIME SPECIFICATIONS FOR THE TEST 
tAND ALSO THE MCTUAL TIME RECORDED (ATIME*) 
t FORMAT Of L INE TYPED 

BBBBBB* ACTUAL -CCCCCC 

AAAAAA IS MAXIMUM TIME TOR TEST I ST IMTBl I TSTNUMX4 ' \ 
l BBBBBB IS MINIMUM TIME FOR TEST ( ST IMIBL I T STNUMX4 *«n) % 

I CCCCCC IS ACTUAL T IMI RECORDED B^ TEST IATIMO. 

i CALL i MOVB TEST NUMBER, R2 jLOAD TEST NUMBER 
j MOV OTIMF.SOATXMt {MOVE TIME T0AT1ME 

{ JSR PC.QUTSPC 



RANGE »< AAAAAA 

j WHERE 



[)4 



C.TTEEEO 


1M03 TE lb ru;*7 


Ot 1 


C/TEEt ., 


PI 1 06 -APR 84 


Ui05 


Ibb2 


003446 


010246 




1663 


003450 


010346 




1664 


003452 


006302 




lbb5 


003454 


006302 




1666 


003456 


010203 




166? 


003460 


000004 


016560 


1668 


003464 


016302 


002124 


lbo9 


0034 70 


004737 


005332 


1670 


0034 74 


000004 


001413 


lb a 


003500 


016302 


002126 


167? 


005504 


004737 


003332 


lb7J 


003510 


000004 


001420 


16/4 


003514 


000004 


016570 


lb7S 


003520 


013702 


001016 


lb 7b 


003524 


004737 


003332 


16 7 7 


003530 


000004 


001402 


16 78 


003534 


012603 




16*9 


003536 


01260? 




lt,8C 


003540 


000207 




1681 








168? 








1685 








1684 








1685 








1686 








168^ 








lb88 








1689 








1690 


00354? 


010246 




1691 


005544 


010346 




169? 


003546 


113703 


00 J. 124 


1693 


003552 


006303 




1694 


005554 


006303 




169S 


003556 


000001 


0'..;>so 


1696 


003562 


016302 


oo;- : ". : ivi 


169* 


003566 


004737 


co *;:.:? 


1698 


005572 


00000-1 


<K, ■,/•) < 


1699 


003576 


01630 > 


00 VJ>{. 


1700 


005602 


0O4737 


0-.. :';;■. 


1701 


005606 


000004 


uOvvi: 


i:o? 


00361? 


00O0O4 


»-i--'--/o 


1 /05 


003616 


015'0? 


0010 (. 


1704 


003622 


00473/ 


o:.>:i.v 


1705 


005626 


0000O4 


Oitu'SS 


1706 


003632 


113702 


O 1 "'! ; ~4 


1 70/ 


003636 


004737 


OV)r '24 


170* 


003642 


000004 


oo \ vj;-: 


1/09 


005646 


CI. "603 




17K 


005650 


0126J: 




1711 


00565? 


000207 




171? 








l/n 








1/14 








i 'is 








l ' 16 


00 ',5 54 






( 1) 


003654 


004 / 3 / 


UJSlV 



MACi 11 
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fYPE SPECIFIED TIMES ROUTINE 


OUTSPC; 


;-IOV R2, (SP) 




MOV R3,-(SP) 




ASL R2 




ASL R2 




MOV R2.R3 




TYPE.L.RNG 




MOV STIMT0L(R3),R2 




JS* PC.TYPDEC 




TYPE, DASH 




MOV STIMTBL*2(R3),R2 




JSR PC.TYPDEC 




UPE.ANGTAB 




fYPE. L, ACT 




MOV BOAT IMF, R2 




JSR PC.TYPDEC 




TYPE.CRLF 




MOV (SP).,R3 




MOV (SP)*,R2 




RTS PC 



SEQ 0042 



j SAVE R2 & R3 ON THE STACK 

jMULTIPLT TEST 4 TIMES 4 
»T0 FORM INDEX INTO STIMTBL. 
|R3 CONTAINS INDEX INTO TABLE 

jGET MAXIMUM SPEC TIME 
{CONVERT TO DECIMAL £ TYPE 

j GET MINIMUM TIME 

{CONVERT TO DECIMAL 6 TrPE 



»GFT ACTUAL TIME 

{CONVERT TO DECIMAL 6 TYPE 



{RETURN 

.SBTTL TYPE GAP TIMES SUBROUTINE 

iTHVS SUBROUTINE IS USED TO TYPE THE SPECIFIED GAP 
iTSVOai). IT IS CALLED By THE GAPOK ROUTINE IF THE 
:RANGE VIA THE HLT ROUTINE CHLT*2). 
{CALL: MOVB JCAP.G3P {LOAD GAP INTO GAP 

; MOV GTIME.ATIME {LOAD ACTUAL TIME INTO ATIME 

JSR PC.OUTGAP 

OUTGAP: 



SIZES CRECURDEO 
GAP SI/E IS OUT 



IN 
OF 



MOV 


R2.-CSP) 


{SAVE R2 


AND R3 






MOV 


R3,-(SPY 










MOVB 


GAP,R3 


{GET GAP 









ASL 


R3 










ASL 


R3 










TyTE 


L.RNG 










MOV 


GTIMTBLCR3),R? 


{GE T MAX 


TIME 






JSR 


PC.TYPDEC 


{CONVERT 


TO DECIMAL 


& 


TtPE 


TYPE 


DASK. 










MOV 


GTTMTBL >?(R3),R? 


{GET MTN 


TIME 






JSR 


PC.TYPDEC 


{CONVERT 


TO DECIMAL 


£ 


TYPE 


TYPE 


ANGTAB 


{Type < 








TYPE 


L.ACT 










MOV 


30ATIME ,R2 


{GET ACTUAL TIME 






JSR 


PC.TYPDEC 


{CONVERT 


TO DECIMAL 


fc 


type 


TYPE 


E.GAP 










MOVB 


bJOGAP.R? 


{GET GAP 









JSR 


PC.TYPOCT 


{TyPE GAP o 






TYPE 


CRLF 










MOV 


C SP ) * , R 5 


{RESTORE 


R3 AND R2 






MOV 


(SP)»,R2 










RT'i 


PC 











.SBTTL 
{SUBROUTINE TO CONVERT 
i IS I EFT IN OCTAL <15 
CNVTAOt 

JSR PC. SAW 



ASCII TO OCTAL CONVERT SUBROUTINE 
ASCII DATA TO OCTAL. CONVERTED OCTAL 
00 » 



DATA 



SAVE REGISTERS ON THE STACK 



CMtHO TM03 



E4 



CZTEEE . 


Pll 06-APR-34 


11:05 


i:i: 


003660 


012700 


001272 


1718 


003664 


012701 


001 122 


1719 


003670 


005011 




1720 


003672 


005061 


000002 


1 /Jl 


003676 


122710 


000015 


1722 


003702 


001414 




172? 


003704 


112002 




1724 


003706 


042 702 


177770 


1725 


003712 


012703 


0000C3 


1 726 


003716 


006311 




1 727 


003720 


00616.1 


000002 


1728 


003724 


005303 




1 72? 


003726 


00.1 * 73 




17 30 


003730 


050211 




1731 


0037 32 


000761 




1732 


003734 






CD 


003734 


00473 7 


003174 


1733 


003740 


000207 




1 7 54 








1735 








1736 








1737 








1738 








173* 








1740 








1741 


003742 






(1) 


003742 


004 73 7 


003152 


1742 


003746 


012 700 


U01020 


1745 


003 752 


113701 


oou; :, 5 


1 744 


003756 


122701 


000001 


1745 


003762 


001423 




1746 


003764 


005002 




1 74 7 


003 766 


005003 




1748 


005770 


1227C1 


000020 


1749 


003774 


001402 




1750 


003776 


030000 




1751 


004000 


000777 




1752 








1753 








1 754 


004002 


062002 




1755 


004004 


005503 




1756 


004006 


005301 




1757 


004010 


0013V4 




1758 








1759 


004012 


012/00 


000004 


1 760 


1.04016 


006203 




1/61 


004020 


006002 




: ?h? 


004022 


005300 




1/63 


004024 


001374 




1 7*4 


004026 


01023/ 


001016 


1765 








1766 


004032 


113700 


001126 


1 76 7 


O04056 


006 500 




1 768 


004040 


0160?/ 


002364 


1 W* 


00404b 


000004 




17 70 


004050 


000000 
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ASCII TO OCTAL CONVERT SUBROUTINE 



SEQ 0043 



1$: 



2$: 



3$: 



MOV 


OINBUF.RO 


MOV 


OOCTALO.RL 


CLR 


(Rl) 


CLR 


2(R1) 


CMPB 


OCR.(RO) 


BtQ 


3$ 


MOVB 


(R0)*,R2 


BIC 


0177770, R2 


MOV 


03, R3 


ASL 


(Rl) 


ROL 


2(R1) 


DFC 


R3 


BNE 


2* 


BIS 


R2,(R1) 


BR 


ii 


JSR 


PC,. RESTORE 


RTS 


PC 



PTR TO ASCII DATA 
ADDRESS OF OCTAL DATA 



iSET 
l GET 
{CLEAR OUT OLD OCTAL DATA 

j<CR TERMINATES INPUT 

jGET 'OCTAL* DATA 
{STRIP UNUSED BITS 
j SET SHIFT COUNT 
{SHIFT LAST 
{OCTAL DIGIT 



{AND INSERT THIS DIGIT 
{GO GET NEXT DIGIT 

{RESTORE REGISTERS FROM THE STACK 
{RETURN 



.SBTTL PUBLISH SUBROUTINE 

{THE PUBLISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT 
jERATICN (IV 16. ITERATIONS) AND PLACES THE AVERAGE RESULT IN * ATIME 
»IT TYPES THE NAME OF THE FUNCTION THAT WAS TIMED, THE TIME SPEC- 
IFICATION AND THE ACTUAL TIME , 



{SAVE REGISTERS ON THE STACK 
iGET TABLE ADDRESS CONTAINING TIMES 
{GET 0*' ENTRIES (GIVEN B> ITERATION COUNT) 

{BRANCH IF SINGLE ITERATION 



004050 



PUBLISH 


♦ 






*JSR 


PC.. SAVE 




MOV 


OATIMTBL.RO 




MOVB 


aOITCNT,Rl 




CMPB 


01, Rl 




BEQ 


4$ 




CLR 


R2 




CLR 


R3 




CMPB 


016. ,R1 




BEQ 


IS 




HALT 






BR 


• 


Ml 


ADD 


(R0)*,R2 




ADC 


R3 




DEC 


Rl 




BNE 


1* 


2$: 


MOV 


04, RO 


3$: 


ASR 


m 




ROP 


R.' 




DFC 


RO 




BNf 


3$ 




MOV 


R2,aOATIMt 


4$: 


MOVB 


aOTSTNUM.RO 




AM 


RO 




MOV 


NAMPTR<R0),5$ 




TtP£ 




5$: 


.WORD 






(CLfcAH 'SUM' REGISTERS 

{BRANCH IF 16. ITERATIONS 

{ITERATION COUNT MUST BE 1 OR 16. 
I DO NOT CHANGE POSIT OF SW11 

{WHEN TEST IS RUNNING. 

{SUM INDIVIDUAL TIMES 



{SHIFT TJ.MF IN R5 6 «2 4 PLACES 
{RIGHT - DIVIDE B> 16. 



lliOVb AVERAGED TIMES 

iGE r HST fl 

jGET TEST NAME STRING ADDRESS 



4 



C/Tl-ht-.O 


IM05 rt.HvRi/7 


D^ 1 


MACU1 30(1046) 


06 APR 


-84 11:0/ PAGE. 


24-19 


CZTKEF. 


PI I 06-APR-P4 


U:05 




PUBLISH 


SUBROUTINE 




1771 


00405,? 


US 702 


001106 




MOVB 


S0TSTNUM.R2 


{GET TEST tf 


17/2 


004056 


004 737 


0034 46 




J5R 


PC.OUTSPC 


; OUTPUT TIMES 


17 7? 


004062 


004 737 


003174 




JSR 


PC,, RESTORE 


{RESTORE REGISTERS 


1 / 74 
17 75 

i 7 76 


004066 


00020/ 






RTS 


PC 












.SBTTL 


INPUT SUBROUTINE 


17 7 7 








{SUBROUTINE TO 


GET TTY INPUT 




1/78 








j CALL: 


JSR 


PC,. INPUT 




17J"-? 

1 780 








j INPUT 


DATA IS 


RETUNED IN DUFFER BEGINNING AT INBUF . 


1 7fcil 


0040 /O 


1 004* 




.INPUT; 


MOV 


RO.-(SP) 


j SAVE RO UN THE STACK 


178c' 


00407.? 


0i2 VCt 


0012/;' 


1$: 


MOV 


0IN8UF.RO 




1783 


004076 


105/* 7 


17/560 


2$: 


TSTB 


a#TKS 




1734 


00410;? 


10037'j 






BPL 


2$ 




178 r » 
















3 786 


004104 


115746 


V 7 75*2 




MOVB 


SOTKB. -(SP) 


jGET CHARACTER 


1787 


004 ito 


042716 


(KX-200 




BIC 


0200, (5P) 




1788 


004114 


122716 


0001 7? 




CMP8 


0177, (SP) 


j CHECK RUBOUT 


1789 


004120 


00? 004 






BNE 


3$ 




1790 


004122 


12402*. 






CMPB 


(RO).(SP)* 


j REMOVE CHARACTER FROM INP 


17**1 


004124 


COC004 


001405 




TYPE.BKSLSH 




1792 


004150 


•*>C0/62 






BR 


2$ 


jWAIT FOR NEXT CHARACTER 


1793 


004132 


122 fit 


OOOOJS 


3$j 


CMPB 


OCNTRLU.(SP) 


; CHECK CONTROL U (*U) 


1794 


004136 


001004 






BNE 


4$ 




1795 


004140 


005/26 






TST 


(SP)» 




1796 


Or; 142 


000004 


201402 




TYPE.CRLF 




1797 


004146 


0007? 1 






BR 


1$ 




1798 


004150 


122 .'If 


000005 


4$; 


CMPB 


OCNTRLC.(SP) 


{BRANCH IF NOT CONTROL C 


1799 


004154 


001C02 






BNE 


40$ 




190C 


004156 


00000 s 






RESET 




{RESET I/O 


1801 


004160 


000137 


006466 




JMP 


aOINIT 


{RESTART PROGRAM 


1802 


004 1 64 


UlfcV7 


(10140/ 


40$: 


MOVB 


(SP).aOECHO 




?.803 


004170 


11162 






MOVB 


CSP).(RO)* 




1804 


004172 


1227?- 


0000.1.5 




CMPB 


OCR.(SP)* 




1805 


004176 


001.403 






BEQ 


5$ 




1806 


004200 


000004 


OOT407 




MPF. .F.CHO 




1807 


004204 


OOO'.v, 






BR 


2$ 




1808 


004206 


OOOOf '£ 


001402 


5$: 


TYPE.CRLF 




1809 


004212 


012600 






MOV 


(SP)»,RO 




1810 


004214 


000207 






RTS 


PC 





SEQ 0044 



FROM THE STACK 



G4 



C/TEtKO TM03 
CZTEEE»PU 



1812 

1815 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
182?. 
1823 
1824 
1823 
1826 
182? 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
3839 
1840 
1841 
1842 
1843 
1844 
1645 
-.846 
184 7 
1848 



U.U. TUiV D»' T 
Ob -APR -84 11:05 



004216 
004222 
004226 
004232 
004234 

004240 
004244 
004246 
004254 
004256 
004260 

004264 
004270 
004272 
004300 
004302 
004310 
004 314 
004320 
004 322 
004 330 
004334 
004336 
004 342 
004 344 
004 352 
004 354 
004360 
004 362 
004 366 
004 370 



113 746 
0427: s 

122716 
001002 
111637 

122716 

00100? 
023727 
001403 
000005 
000137 

122716 
001011 
022737 
001010 
012737 
000004 
122716 
001006 
012737 
004 73? 
000414 
122716 
001004 
112737 
000405 
122716 
001002 
105037 
005 72h 
000002 



17 756 ' 
000200 
0000? ' 

0026 .*. \ 

00000 S 

0000 A 2 

0064 6 - 
00000.1 

0001 76 

177570 
014506 
000007 

00017/ 
0025 ? t. 

00002"* 

000377 
00002 t 
00262^ 
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INPUT SUBROUTINE 



{KEYBOARD INTERRUPT SERVICE ROUTINE 



StQ 0045 



TKISRj 



1$ 



013676 



2$ 



001000 
001000 

001000 
002626 



3$ 
4$ 

5$ 

6$ 
/« 



HOVO 

BIG 

CMPB 

BNE 

MOVB 

CMPB 

BNE 

CMP 

BEQ 

RESET 

JMP 



WTK6. (SP) 

0200, (SP) 
OCNTRL0,(SP) 
3$ 
(SP),$CNTR10 

03.CSP) 
2$ 

o)042.0$ENDAD 
2« 

qoinit 



CMPB OCNTPi A.CSP) 

BNE 31 

CMP OSWREG.SWR 

BNE 4* 

MOV 0177570, SWR 

TYPE.M.HSWR 

CMPB OCNTRLG,(SP) 

BNE 5$ 

MOV OSWREG.SWR 

JSR PC.CTSWR 

BR 7$ 

CMPB 023, (SP) 

BNE 6$ 

MOVB 0377,$CTRL5 

RR 7$ 

CMPB 021.CSP) 

BNE 7$ 

CLRB $CTRlS 

T5T (5P)» 

RTi 



;GET TYPED CHARACTER 

jSTRIP PARITY BIT 

{BRANCH IF NOT CONTROL (»0) 

{SET CONTROL INDICATOR IN TYPE ROUTINE 

jRRANCH IF NOT CONTROL C (tc) 

{INHIBIT t-C IF ACT11 QV OR AA 

jRESTART PROGRAM 

{BRANCH IF NOT *A 

{BRANCH IF HARDWARE SWR IS INVOKED 

« INVOKE HARDWARE SWR 

BRANCH IF NOT tG 

INVOKE SOP TWARE SUR 
GFT NEW SWITCH REGISTtR 

SEE IF fS 

BRANCH IF NOT 
SET XOFF FLAG 

5Ef IE UJ 

BRANCH IF NOT 

POP CHARACTER OFF STACK 
RETURN 



C/1EI hO 


TM05 n. 


16 \v:: 


Df I 


NACY 1 i 


MThfct. 


Pll 06 APR 84 


11:05 




1850 










18M 










18V 


00437£ 


000000 






1853 










1854 










1855 










185h 










1857 










1858 










185^ 


004374 


004 737 


OCX 15- 




1860 


004400 


110637 


con? ' 




lrtbl 


004404 


0327/7 


020 OCO 


174 366 


1862 


004412 


0OU21 






186? 


004414 


000004 


01V-31 




1864 


004420 


113702 


oon.'.v 




1865 


004424 


004 73/ 


003224 




1866 


004430 


016600 


JCO-'ir. 




1867 


004434 


162700 


000002 




1868 


004440 


l 11000 






1669 


004442 


001443 






1870 


004444 


000004 


015*. 1. A 




187i 


004450 


122 737 


oooo v ... 


001126 


18 7? 


00*456 


001006 






1873 


004460 


12273/ 


000001 


001136 


1874 


004466 


001002 






18/5 


0044 /O 


000004 


01544? 




1076 


0044 74 


1227V 


0000 ' 6 


001126 


1877 


004502 


001006 






18 78 


004504 


12273/ 


ooooo 1 


001156 


1879 


004512 


001002 






1880 


004514 


000004 


015711 




1881 


004520 


122VC0 


000002 




1882 


004524 


001005 






188? 


004526 


004 73 7 


00354.: 




1884 


004 532 


000004 


00140? 




1865 


00453'j 


00044 7 






188*, 


004540 


104 737 


On 34 4 ^ 




188' 


004 544 


000004 


OCMO? 




1888 


00455C 


000442 






1889 


004552 


016500 


oi* jo i *: 




1890 


004556 


03 2 765 


00?3oG 


000032 


1891 


004564 


001403 






1892 


004 566 


042/00 


10? ICO 




1893 


004572 


00040? 






1894 


004574 


C42700 


102300 




1895 


004600 


005 70^ 






1896 


004602 


00 1 00 5 






1897 


004604 


000004 


015305 




1898 


004 6 1C 


0004 34 






1899 










1 900 


004M2 


000004 


OlSMi 




1901 


004616 


010500 






1902 


004620 


012/01 


O'.;o:yji 




l 1 *.)?. 


004*-} 24 


01200? 






1904 


004626 


004 ; <i * 


Ovt:". .■ * 




1905 


004632 


000004 


0014x5 
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ERROR SERVICE ROUTINES 

.SBTVL ERROR SERVICE ROUTINES 

{ROUTINE TO PROCESS ERROR TRAPS (TRAPS TO 4) 
ERRTRP: HALT 

ERROR SFRVICE ROUTINE 

THIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE AND HARDWARE) 
THE CALLS FOR AN OUT OF" RANGE ERROR ARE <HLT >1 > , <Hl.T » 2> AND, TOR A 
{HARDWARE ERROR THE CALL IS <HLT>, 

{SAVE REGISTERS ON THE STACK 
j SET ERROR FLAG 
{BRANCH IF NO TyPOUT 

;GET TEST 
;AND TYPE IT 
{GET RETURN PC 
;NOW PC OF HI T CAl I 
;NOW HIT CALL ITSELF' 
{BRANCH IF HLT 

{SEE IF IT IS TEST 5 

{CONTINUE IF NOT TEST 5 

{CHECK ORIVF TYPE 

{BRANCH IF N01 TU// 

;TiP TU77 SPECIF IC MESSAGE 

{SEE IF IT IS TtST lt> 

{CONTINUE IF NOT TEST 16 

{CHECK DRIVE TfPfc 

{BRANCH IF NOT TU// 

;TyP TU77 SPECIFIC MESSAGE 

{BRANCH IF NOT HIT*? 

jlYPE GAP SPECIFIED TIMES 



SEQ O046 



, HL T : 


JSR PC,. SAVE 


IS; 


MOVB SP.QOERFLG 




BH oswis.aswR 




BNE 4$ 




TYPE.E,HDR 




MOVB 80TSTNUM, R2 




JSR PC.TYPOCT 




MOV 16(5P),R0 




SUB 02, RO 




MOVB (RO") # R0 




BEQ 2$ 




TYPE,E.HDR2 




CMPB 05.30TSTNUM 




BNE 99$ 




CMPB 01.S0TE16 




BNE 99$ 




TYPE,E.7rT5 


99$; 


CMPB Ol6,aofSTNUM 




BNE 98 $ 




CMPB 01.30TE16 




BNE 98$ 




TYPE.E.7T16 


98$: 


CMPB 02. RO 




BNE 10$ 




JSR PC.OUTGAP 




TfPE.CRLF 




BR 4$ 


10$: 


JSR PC.OUTSPC 




TYPE.CRLF 




BR 4t 


2$: 


MOV *R(.R5),R0 




BIT 0Pt lt.00, TC(R5 




BtU ^"Oi 




BIC 0102100, RO 




BR 2 1 $ 


20$: 


BIC ol 02300.R0 


21$: 


TST RC) 




BNL ??$ 




T t PE , E . 5> T 




BR 6$ 



{TYPE SPECIFIED TIMES 



,V»$: TtPF .E.HDR1 

MOV R5.R0 
MOV 4/.,Rl 

S%\, MOV (RO).,R? 

j i .r pc.rtpoct 

TYPE.iiPACU 1 



TYPE SOF T ERROR MESSAGE 



I tit I MRS! ADQRtSS 
j TiPE FIRST / Hi i?j. 
iU T RHi CONTENTS 
{AND TiPE IT 



OF REUS. 



/I 



C/TEEt.O YM03-YUtvTU/7 OCT 
CZTEEE. .Pll 06-f.PH-fl4 11:05 



1906 


004636 


005301 




1907 


004640 


0C1371 




1908 


00464? 


Clo50? 


0'X>O.V 


1909 


004646 


004 757 


003??4 


1910 


004652 


000004 


00140? 


19H 








191? 


0046^6 


0327 77 


001000 


1915 


004664 


00140? 




1914 


004666 


000004 


00 K VI 


191^ 


0046 VL? 


00577 7 


174 1.0*? 


1916 


004676 


100001 




19i 7 


004700 


000000 




1918 


004 /o? 






(1) 


004 70? 


004 "37 


003174 


1919 
1 *?0 
19c*l 


004 70b 


00000^ 











MACY11 



1 7 4114 



30(1046) 


06 / 


APR -84 11:0/ 




ERROR SERVICE ROUTI 




DEC 


Rl 




BNE 


3$ 




MOV 


TC(R5),R? 




JSH 


PC.TYPOCT 




TYPE 


.CRLF 


4$: 


BIT 


tfSW09,o)5WR 




BEQ 


5$ 




TYPE 


,BELl 


5$: 


TST 


aswR 




BPL 


6$ 




HALT 




6$: 








JSR 


PC,*RtSTOR£ 




RTI 





PAGE ^5-2 



StQ 004 7 



jGET CONTENTS OF TC REGISTER 



{BRANCH IK NO RING THE BELL 



{HALT ON ERROR? 



{RESTORE. REGISTERS FROM THE STACK 
j RE TURN 



J 4 



C/u u-.o 

CiTTI EE .P 

1V3 
i 924 
1925 
192c 
192 ■' 
1928 
1 *■>.>» 
1°50 
1^51 
1952 
1955 

1954 
1955 

195w 

3.95: 

1956 
1959 
1940 
1941 

194c' 
1945 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
19S1 
1952 
1955 
1954 
1955 
1956 

195 7 

1958 
1959 
I960 
19bl 

196 J 
1965 
1964 
1965 
1966 
1967 
1968 
1969 
19/0 
19/1 
19 7,.' 
19 7 3 
1974 
19/5 
19/6 

19/: 

19 78 



I M05-Tf.lt. TU '■* D r ' 

11 06 APR 84 i 1:05 



004/10 
004714 
004 72c 
004 724 
004 750 
004754 
004 756 
00474? 
004/44 
004 752 
004 756 
004 762 
004 /66 
004 772 
004 7 74 
005000 
005002 
005006 

005010 
0050)4 
005016 
005022 
005024 
005052 
005056 
005042 
005044 
005052 
005054 
005062 
005064 
0050/2 
0050 r A 
005100 
005106 
005110 
005H4 
005120 



015705 

52777 

001452 
017/01 
^42V01 
001-06 
,2015/ 
001405 
0127 V/ 

004 /r 7 

004 75. 
1050.^7 
015 716 
C1050 1 
062701 
0105^'- 
OJ270G 
000002 

105757 
001006 
115700 
006300 
013760 
105257 
1057 '7 
001410 
052/7 7 
001004 
122737 
001320 
052/// 
001002 
011637 
032/7/ 
001002 
004/37 
10503 7 
000/01 



001010 
040000 

1 74050 
177740 

001126 

010172 

<K550^ 
005736 
00112/ 
901002 

',\>0012 

000006 

'.r.:/ 

00U25 

001016 
001125 

001 \ 34 

004000 
000020 
00005/ 

001002 

002000 

003/42 
001125 
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SCOPE SUBROUTINE 

.SOTTL SCOPE SUBROUTINE 

SCOPE ROUTINE 

THIS ROUTINE- IS ENTERED UPON COMPLETION OF EACH SUBTEST 
THE SCOPE ROUTINE: 

REPEATS TEST IE SU14 IS SET 

iTORES ACTUAL TIME FOR FUNCTION IN TIME TABLE CATIMTBU 

PUBLISHES TIME IF SW10-0 

UPDATES ITERATION COUNT AND IF ITERATIONS COMPLETE CONTINUES 

TO NEXT TEST. OTHERWISE REPEATS TEST. 

DELAYS BEFORE CONTINUING OR REPEATING TEST. 

INITIALIZES DRIVE 



SEQ 0048 






RETURNS: 



I M056 



, SCOPE 
li: 



001002 



115 



001020 

173726 
001125 
1/5706 

173672 



2$ 



3* 



4$: 

40* 
42$ 



5J: 



MOV 
BIT 
B-.Q 

M'jV 

•*MPH 

tu:u 

MOV 
,ISK 
JSR 

Cl.RB 

MOV 

MGV 

ADD 

MOV 

ADD 

RTI 

TSTO 
3NE 

hOVB 

ASL 

MUV 

1NC0 

TSTB 

be a 

BIT 
BNE 

CMPB 
BNE 
BI I 

BNt 

MOV 

BI T 

BNE 

JSR 

CI RB 

BR 



R5-BASE ADDRESS OF TM03 REGISTERS CADDRESS OF CS1) 
Rl-'DS' REG ADDRESS 
RO- 'FC* REG ADDRESS 



80TMBASF.R5 

cswi4,aswR 

2$ 

SSWR.R1 
♦177740, Rl 
1U 
R1.30TSTNUM 

in 

4TSTOO0.SCPADR 
PC.DELAr 
PC.RHINIT 
a.>fc.RKL.G 

scpaur.csp) 

R5.R1 
005 ,Ri 
R5.R0 
OFC.fiO 



aOERi'l G 
3$ 

aoiTCNT.RO 

RO 

aOATIMf.ATlMTBUCRO) 

aoncNi 

6)$P5CNT 
4S 

oswn.asun 

4$ 

tflo. .aolTCNT 

1$ 

aJ/.aSUH 

42$ 

I SP ) , aoSCPADR 

osuio.asuR 
.»$ 

PC.PUHl ISH 

afrlTCNT 

1$ 



;SET R5 TO FIRST TM REG 

{BRANCH If CONTINUOS LOOP 

;NOT DESIRED 

{GET SWITCHES 

{CLEAR ALL BUT TEST 

{BRANCH V ALL SELECTED 

{BRANCH IF' RUNNING SELECTED TEST 

{RESTART AT TSTOOO 
DELAY 350 MS 
INIT 
CLEAR ERROR FLAG 



{ADDRESS Of 
.-ADDRESS OF 



DS' REG IS IN Rl 

EC REG IS IN RO 



{BRANCH JF ERROR FLAG IS SET 

iGt I LTfc 6ATIUN COUNT 
{STOrfE TIME TN TABl V 

{INCREMENT ITERATION COUNT 

: INhIB! . r U RATIONS ON 

:0N FIRM PASS 

{BRANCH II SYNCIE ITERATION DESIRED 

{BRANCH IE llcHA'LONS INCOMPLETE 



{ If If ST SELECTED IS TEST 
{TREAT AS ALL TESTS 
{SET SCOPE ADDRESS TO NE ;; T TEST 
{BRANCH IE NO PUU ICATIUN DE >iRED 

{GO PUBl \y-H U ST DATA 
{RESET ITERATION COUNT 



♦ SBTU TIMER SUBROUTINES 



I<4 



2030 

.■■o '. i 

JOV 

;•'.)/■*■ 

*034 



000024 
000100 

000100 



000024 
000024 



000100 000024 



c/u.e.eo mo3-n.ib ru/; dei hmcyii 

CZTEEE.P11 06-APR-84 11:05 



19M0 
1^81 
198.? 
1^8? 

1984 

1.985 

19F*> 

198.* 

1988 OOM.V 005004 

198^ 0051?4 012/03 

1990 005130 03,"! 765 

1991 00513b 001405 

1992 005140 032765 

1993 005146 001374 

1994 005150 000405 
1995 

199b 005152 00540? 
1 *»*-"»": 005154 032765 

1998 005162 001/74 

1999 005164 000207 
2000 

2001 
?.00<] 
2003 
2004 
2005 
2006 
200 " 
2008 
2009 
2010 

2011 005166 032765 

2012 005174 001406 

2013 005176 000112 
2014 

2015 005212 

2016 005212 005403 
201/ 005214 005204 
201R 005216 100401 

2019 00522C 000112 

2020 005222 000004 

2021 005226 104400 

2022 005230 000177 
2023 

2024 005236 

2025 

2026 0052 56 032/65 

202/ 005244 001362 

2028 005246 UQQU2 

2029 



000100 000024 



016147 
173546 



000X00 000024 
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11:0/ PAGE 25-4 



SbQ 0049 



SUBROUTINE TO SYNCHRONIZE THE TIMER AND TURN IT ON. 
REGISTER 4 IS CLEARED, ANO THE OSCILLATOR POLARITY IS MONITORED 
THE ROUTINE IS EXITED WHEN THE OSCILl ATOR POLARITY CHANGES WITH 
SET TO INDICATE THE POLARITY OF THE OSCILLATOR. 
CALL: JSR PC, TIMON 

RETURNS,- P3 SET TO INDICATE LAST POLARITY ( #24/ -24 -0/1) 
R4 « 



R3 



TIMON 



1$: 



2? : 

3$: 



4$: 



CLR 
MOV 
PfT 
BC-.Q 
BIT 
BNE 
BR 

NEG 

hi r 

BEQ 

RTS 



R4 

V>24,R3 

00SC,MR(R5) 

2$ 

£05C,MR(R5) 

1$ 

4$ 

R3 

<H) r C, MRCR5) 

3$ 

PC 



j CLEAR TIME COUNT 

; SET POLARITr TO ' C STATE 

{BRANCH IK POLARITr IS '0* 

{WAIT FOR OSCILLATOR TO RETUR' 



NEGATE PREV POLARlTf INDICATOR 
WAIT I OR OSCILLATOR TO RETURN 
TO • 1' STATE 



{SUBROUTINE TO 
;EACH TIME THE 



COUNT TIME 
OSCILLATOR 



TOGGLES (BIT <06> IN MR REG) REGISTER 



iR4 IS INCREMENTED, AND THE REGISTER R3 
{THE LAST STATE OF THE OSCILLATOR. 
{CALL JMP TIMERCR3) 
{ R2-RFTURN ADDRESS TO CALLER 
{NOTE: Tht TIME TO EXECUTE THIS ROUTINE 
{LESS THAN 10 US. 



IS NEGATED TO INDICATE 

;R3 IS SET By TIMON ROUTINE 

IS VERr CRITICAL. IT MUST BE 



{ENTER 
TIMER1 



TIMER? 



HERE VIA JMP TIMERCR3) WHEN 

BIT dOSC,MR(R5) 

BEQ TIMER 

JMP ( R2 ) 

. *TIMER1*24 



R3»-r»4 (PREV STATE'l) 
{BRANCH 11 CURRENT 
{GO INCREMEN1 TIME 
{RETURN TO TEST 



STATE IS '0' 



T1MERR: 



meg 

INC 
BM1 

JMP 

type 

Hl.T 

JMP 



• E 



R3 

R4 

T IMERR 

CH2) 

TIMOV 

3SCPADR 



{NEGATE PREV STATE INDICATOR 
{INCREMENT 'TICK' COUNT 
{BRANCH ON OVERFLOW 
{RETURN TO TEST 
{TYPE ' TIMER OVERFLOWED 
{REPORT HARDWARF F 'ROR 
{RETURN TO BEGINNING OF TEST 



. » TIMER** 4 
{ENTER HERt VIA JHP TlMtrR(R3) WHEN R3=> 
riHF-RO: HIT «05C.MR(R5) 

BNE I TMER 

JMP ( R2 ) 



♦24 (PREV STATE -0 ) 
{BRANCH IF CURRENT 



STATE - 



{SUBROUTINE !0 CHECK TIME RECORDED Bi SUBTEST. 

{THIS SUHROUTINi- COMPUTES VHt ACTUAl TIME (IN MICROSECONDS) AND CHECKS 
{THAT THE TIME RECORDED Hi THE SURTI'.T IS CORRECT B'l COMPARING THE TIME 
{WITH THfc HIGH LIMIT cSTIMfBl.(RO)) AND The L OU l IMI T r»T IMW! *.\ RO > K 
I IK THE TIME IS OUT QF RANGE AN QUI OF RANGE ERROR HPEOUT RESULTS* 



4 



LVU.EIO 1M03 
CZTEE1 .Pll 



2035 
20 ?h 

20?/ 

2038 

tn 

20 39 
2040 

2041 

2042 

2043 
2044 
2045 
2046 
204 7 
2048 
2049 
2050 
2051 
2052 
20$?. 
2054 
2055 
205'. 
205/ 
2058 
2059 
2060 
2061 
206? 

(1) 
206? 
2064 
2065 
20*i6 
20*2/ 
20hH 
20b^ 
20 /O 
20/1 
20 .'2 
20/3 
20/4 

( 1) 
20 /5 
20/6 
20// 
20/8 
20 /9 
2080 
2081 
208? 
2083 
2084 
2085 
208^ 



n.u> TU// DF T 
06 -APR 84 11:05 



NACU1 



30( 1046) 06 APR 84 
TIMER SUBROUTINES 



11:0/ PAGE 25-5 



StQ 0050 



005250 

005250 
005254 
005260 
005262 
005264 
005266 
0052/0 
005272 
005274 
005276 

005300 
005302 
005306 
005312 
005314 
005320 
005324 
005326 
005330 
005336 
005340 
C05346 
01/3350 
005352 
005352 
005356 



005360 
005360 
005364 
0053/0 
0053/2 
005374 
0053/6 
005400 
005402 
005404 

005406 

0054 10 
005412 
2007 00S4I6 



004 73/ 
013700 
010401 
005002 
005003 
060002 
005503 
005301 
0013/4 
010246 

010346 

012746 
004737 
005726 
012637 
113700 
006300 
006300 
023760 
101004 
023760 
101001 
104401 

004 73/ 
000207 



004/3 7 
013 700 
010401 
005002 
005003 
060002 
005503 
005301 
001374 

010246 
010346 
012/46 
00475V 



THE SUBROUTINE 15 tNTERED WITH* 
R4-TTCK COUNT 



003152 
001012 



TIMOK 



1$; 



000012 
005570 

001016 
001126 



001016 
001016 

003174 



002124 
002126 



2?-: 

3$; 



JSR PC,.SAVfc 

MOV OSCTIM.RO 

MOV R4.R1 

CLR R2 

CLR R3 

ADD R0.R2 

AOC R3 

DEC Rl 

BNE 1$ 

MOV R2.-CSP) 

MOV R3.-CSP) 

MOV 410. , (SP) 

JSR PC, DIVIDE 

TST CSP)» 

MOV C"SfO# .aOATIME 

MOVB aaTSTNUM.RO 

ASL. RO 

ASL RO 

CMP 30ATIME.STIMTBURO) 

BHI 2$ 

CMP S4ATIME , STIMTBL »2( RO) 

BHI 3* 

HLT*1 

JSR PC,. RESTORE 

RTS PC 



{SAVE REGISTERS ON THE STACK 

{GET TIME PER TICK 

iGET TICKS COUNT 

{CLEAR SUMMING REGISTERS 

{MULTIPLY TIME PER TICK 
{BY TICK COUNT 



{DIVIDE COUNT BY 10. 



DISCARD REMAINDER 
STORE QUOTIENT 
GET TEST * 



{CHECK THAT TIME IS UITHIN 
{LIMITS SPECIFIED 



{CALL ERROR ROUTINE 

{RESTORE REGISTERS EROM THE STACK 

{RETURN 



SUBROUTINE TO CHECK INDIVIDvJAL GAP TIMES (PRODUCED BT TST021) 

SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 

THAT THE GAP TIME RECORDED B1 THE SUBTEST (TST021) BY COMPARING THE 

TIME WITH THE MAX LIMIT (GTIMTBL -GAPTBLl Rl) ) AND THE MIN LIMIT 

(GTIMTBL*2~GAPTBL(Ri:n. 

CALL: MOV 0TICK COUNT, R4 ; R4 CONTAINS TICK COUNT 

MOVB frGAP.SOGAP {LOCATION GAP CONTAINS GAP 

JSR PC.GAPOK 



52 



0031 
001012 



GAPOK j 



1* 



O0001,' 
005570 



JSR 


PC, .SAVE 


MOV 


attOSCTIM.RO 


MOV 


R4,R1 


CI R 


U. y 


CLR 


R3 


ADO 


R0.R2 


ADC 


R3 


DEC 


Rl 


BNE 


15 


MOV 


R2, (SP1 


MOV 


R3, (SP) 


MOV 


(110., (SP) 


JSR 


PC. DIVIDE 



.SAVE REGISTERS ON THE STACK 

{GET TIME PER TICK 

{GET TICK COUNT 

{CLEAR SUMMING REGISTERS 

{MULTIPLY TICK COUNT 
;BY TIME PER TICK 



{DIVIDE TIME BV 10 



C/TEEEO 1M03-TE16/TU// OCT 
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SEQ 0051 



2088 
2089 
2090 
2091 
2092 
209? 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 

U) 
2103 
2104 
2105 
2106 
210? 
2108 
2109 
2110 

(1) 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 

CD 
2125 
2126 
212/ 
2128 
2129 
21 SO 
2131 
217,2 
213*. 
2 1 34 
2135 
213*, 
213 " 
21 '.4 

in*--* 

2140 



005422 
005424 
005430 
005434 
005436 
005440 
005446 
005450 
005456 
005460 
005462 
005470 
005472 

0C54 74 
0054 74 
005500 



005502 
005506 
005510 
005514 
005514 
005520 
005524 
005526 
005530 



005532 

005536 
005540 
005544 
005546 
005552 
005552 
005556 
005562 
005564 
005566 



005^26 
012637 
113703 
006303 
006303 
023763 
101004 
023763 
101001 
104402 
032777 
001001 
000240 



004737 
000207 



004 737 
010246 
012702 

000163 
032704 
001773 
012602 
000207 



005737 
001413 
004737 
010246 
012702 

000163 
023 704 
1013/3 
012*02 
00020/ 



001016 
001124 



001016 
001016 



002264 
002266 



002000 173310 



003174 



005122 

005520 

005212 
004000 



001120 

005122 

005556 

005212 
001120 



2$: 
3$; 



100$: 



1ST 

MOV 

MOVD 

ASL 

A5L 

CMP 

BHI 

CMP 

BHI 

HLT*2 

BIT 

BNR 

NOP 



vJSR 
RTS 



CSP)» 

(SP)*,SWATIME 

3tfGAP,R3 

R3 

R3 

5JflATIME.GTIMTBL.CR') 

2$ 

3tfATIME,GTlMTBL*2(R3) 

3$ 

#5wio,aswR 

100$ 



1 DISCARD REMAINDER 

; STORE QUOTIENT 

{GET GAP <i 

jMULTPLY Br 4 

j TO GET AT TABLE ENTRY 

{CHECK TIME CMAX) 

{CHECK TIME (MIN) 

{REPORT OUT OF RANGE ERROR 
{BRANCH IF TIMES NOT WANTED 



PC, .RESTORE 

PC 



; RESTORE REGISTERS FROM THE STACK 
{RETURN TO TEST 



.SBTTL DELAY SUBROUTINES 

{THIS SUBROUTINE CAUSES A DELAY OF 115 MS. 



DELAY; 

1$: 
2$: 



JSR 
MOV 
MOV 

JMP 
BIT 
BEQ 
MOV 
RTS 



PC.TIMON 
R2, -CSP) 
«2$,R2 

TIMERCR3) 
04000, R4 
\% 

(SP)*,R2 
PC 



{SAVE R2 ON THE STACK 

{SET RETURN ADDRESS FOR TIMER 

{GO TO TIMER £ RETURN VIA R2 
{RESTORE R2 



THIS SUBROUTINE ALLOWS A CALLER SPECIFIED DELAY. 
CALL: 



DELAYV 

1$: 
2$: 

3$: 



MOV DELAY TIME.DELTIM 

JSR PC, DELAYV 

TST DELTIM 

BEQ 3$ 

JSR PC.TIMON 

MOV R2,-CSP) 

MOV 02$,R2 

vJMP TIMERCR3) 

CMP h)0DELTIM,A4 

BHI 1$ 

MOV (SP)»,R2 

RTS PC 



.SBTTL DIVIDE 5UBR0UTIK- 
THIS SUBROUTINE DIVIDES A DOUBl E 
10 THE CALLER ON THF STACK. BOTH 
CALL: MOV LEAST SIGNIFICANT 

MOV ©MOST SIGNIFICANT 

MOV 0DIVISOR. (SP) 

JSR PC, DIVIDE 



{LOAD DELAY TIM? (ft OF TICKS) 
{BRANCH IF DELAY 

{ TURN T IMER ON 

jSAVE R2 ON THE STACK 

{SET RETURN ADDRESS FROM TIMER 

;G0 TO TIMER 6 RETURN VIA R2 
{RESTORE R2 



PRECISION ft AND RETURNS THE RESULT 
DIVIDEND £ DIVISOR MUST BE POSITIVE 
HALF" DIVIDEND. -C5P) 
HALF DIVIDEND, -(SP) 



RETURN 



i 



I'iP^-HI MAINDLR 
21 SP) 'QUOTIENT 



ON STACK 



N4 



c/n-.no 1N03-Tf.j6/Tu// on 
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SEQ 0052 



2141 

2142 
214? 
2144 
2145 
2146 
214; 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
216? 
2164 
2165 
2166 
216/ 
2168 
2169 
2170 
21/1 
2172 
2173 
21/4 
2175 
2176 
217/ 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
'M90 
«-*91 
2192 
2193 
2 1 94 
21')', 
2196 



005570 
005572 
005576 
005602 
005606 
005612 
005614 
005616 
005620 
005622 
005624 
005626 
003630 
005632 
005634 
005636 
005640 
005642 
005644 
005650 
005654 
005656 



005660 
005666 
005674 
005676 
005/02 
005704 



0057U6 
005714 
005/22 
005730 
005/32 
005734 



005/36 
005/44 
005/52 
005754 
005760 



005046 
012746 
016601 
016600 
016602 
005402 
000241 
000405 
006100 
010003 
060203 
103001 
010300 
006101 
005316 
001370 
005726 
005726 
010166 
010066 
012616 
000207 



113765 
032765 
001003 
004737 
000262 
000207 



113765 
113765 
032765 
001001 
000262 
000207 



012765 
113765 
005C46 
113716 
012665 



jNOTE: THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OK R0.R1.R2 6 R3, 



000021 
000012 
000010 
000006 



DIVIDE: 



000006 
000004 



001004 
040000 

005736 



000010 
000026 



001004 
001005 
002000 



000010 
000032 
000026 



1$ 



2$ 



CLR 

MOV 

MOV 

MOV 

MOV 

NEG 

CLC 

RR 

ROL 

MOV 

ADD 

BCC 

MOV 

ROL 

DEC 

BNF. 

TST 

1ST 

MOV 

MOV 

MOV 

RTS 



.SBTTL 
SUBROUTINE TO 
CALL.: MOVB 

JSR 
RETURN: 
DRVAVA: MOVB 
BIT 
BNb 
JSR 



-CSP) 

#17. , -CSP) 

12CSP).R1 

10(SP).R0 

6(SP),R2 

R2 

2$ 

RO 

R0,R3 

R :,R3 

2* 

R3.R0 

Rl 

CSP) 

1$ 

(SP)» 

(SP)f 

R1.6CSP) 

R0.4CSP) 

(SP)>,CbP) 

PC 



j SAVE LOC FOR SIGNS 
{SET ITERATION COUNT 
;GET LSH DIVIDEND 
{GET MSH DIVIDEND 
{GET DIVISOR 
{NEGATE DIVISOR 
{CLEAR 'C BIT IN PSW 

ROTATE MSH DIVIDEND 

SAVE IN R3 

SUBTRACT DIVISOR FROM MSH DIVIDEND 

BRANCH IF DIVIDEND > DIVISOR 

SAVE REMAINDER IN RO 

ROTATE LSH DIVIDEND 

DECREMENT ITERATION COUNT 

POP ITERATION COUNTER 

POP SIGN CORRECTION 
PUSH REMAINDER ON STACK 
PUSH QUOTIENT ONTO STACK 



iEV 



IS 



DRIVE SUBROUTINES 
CHECK IF DRIVE IS AVAILABLE 
DRIVEN, DRVNUM 
PC, DRVAVA 

•C BIT SET IF NOT AVAILABLE 
o)0DRVNUM,CS2(R5) {LOAD DRIVE # 
#TAP,DT(R5) {CHECK IF TAPE UNIT 

H 
PC.RHINIT 

{SET • V TO IND NOT AVAIL 
PC {RETURN 



SUBROUTINE TO CHECK IF TE16/TU/7 SLAVE IS AVAILABLE FOR TEST 



CALI 



SLVAVA: 



1$ 



MOVB 

MOVB 

JSR 

MOVB 

MOVB 

BIT 

BNL 

SEV 

RTS 



DRIVE #,3tfDRVNUM 

SLAVE fr.30Sl.VNUM 

PC, SLVAVA 

aaDRVNUM,CS2(R5) 

oJGSL VNUM.TCCR5) 

#SPR,0T(R5) 

IS 

PC 



VIA DRVNUM 
{PASS SLAVE if VIA SLVNUM 
{CALL SUBROUTINE 
{LOAD DRIVE i> 
{AND SLAVE tf 
{BRANCH IF SLAVE PRE5ENI 

{SET 'V* TO INDICATE NO SLAVE 



{SUBROUTINE 
jCALL: JSR 



TO INITIALIZE 
PC.RHINIT 



RH CONTROLLER 



000040 
001004 

00100S 
000032 



000010 
000010 



RHINITj MOV 440.CS2CRS) 

MOVB 3GDR VNUM , CS2C R5 ) 
CLR CSP) 

MOVB a.VSLVNUM.(SP) 

MOV (SP)».TC(R5) 



{LOAD SLAVE INTO TC Rb*G 



C«TTEEEO TM03 
CZTEEE.Pll 



TElfo TU/.* Df T 
06 -APR 84 11:05 



M97 
198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
<i) 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2221 



2225 

222* 



2229 
22 30 
2231 
2212 
2253 
22 54 
22 35 
22 56 
225/ 
2238 
22 59 
2240 
2241 
2242 
^24 3 
2244 
2245 
2246 
224 7 
cV4H 
,V49 



005764 
005772 



005774 
0057 76 
006000 
006004 
006006 
006012 
006014 
006020 
006022 
006030 
006032 
006036 
006042 
006046 
006050 
006054 
006056 
006062 
006064 
0O60 7? 
006074 
006076 



0O6100 
006104 
006110 
006112 
006114 
006116 
0061^0 
006122 
006130 
006132 
006140 
006142 

0O6144 

006152 
006154 
006 1 56 
006160 



052 765 
000207 



00502 7 
000000 
105765 
100406 
005237 
001372 
0000O4 
000425 
032765 
001415 
000004 
0000O4 
004737 
102412 
004 73 7 
005215 
004 73 7 
000404 
052765 
001401 
000262 
00020 7 



004/37 
004537 
000000 
OOOOOO 
OOOOOO 
000006 
005215 
052765 
001005 
032765 
001006 
00076/ 

032/65 
0013/4 
000401 

000262 
000207 



001700 



000012 

0057 76 

016174 

002000 

014326 
015045 
006100 

006162 

005774 

040000 



005736 
006316 



000002 
040000 



020000 







B l > 


MACttl 
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DRIVE SUBROUTINES 


000032 


BIS 


*N0RMll,TC(R5) 




RTS 


PC 




1 SUBROUTINE TO 


WAIT FOR DRIVE READY 




WAHRDYsCLR 


(PC)* 




WAITTIMj .WORD 







ltt TSTB 


DSCR5) 




BMI 


21 




INC 


WAITTIM 




BNE 


If 




TYPE.F. 


TIMEXP 




BR 


99$ 


000012 


2$: BIT 


0E0T.DSCR5) 




BEQ 


3$ 




TYPE,M, 


NAM 




TYPE.M, 


EOT 




JSR 


PC, .REWIND 




BVS 


99$ 




JSR 


PC. WRITE 




INC 


(R5) 




JSR 


PC.WAITRDY 




BR 


99$ 


000012 


3*: BIT 


*€PR,DS(R5) 




BEQ 


100$ 




991} SEV 






1001; RTS 


PC 




i SUBROUTINE TO 


REWIND A UNIT (DRIVE 




i CALL MOVB 


DRIVE *,S*ORVNUM 




\ MOVB 


SLAVE *.Q*SLVNUM 




i JSR 


PC, .REWIND 




l SUBROUTINE RE TURNS TO CALLER WITH 




jAN ERROR OCCURS, 




.REWlNDjJSR 


PC.RMINIT 




JSR 


R3.TMCMD 




.WORD 







.WORD 







.WORD 







.WORD 


RWD 




INC 


(R5) 


000012 


1$: BIT 


0B0T,DS(R5} 




BNE 


2$ 


000012 


BIT 


«fcRR,DS(R5) 




BNE 


99$ 




BR 


1$ 


000012 


2 1 1 BIT 


OP IP, DSC R5) 




BNF 


v $ 




BR 


100$ 




9<*$: SEV 






1001: RTS 


PC 



SEQ 0053 



(DRY) 

jCLEAR WAIT 



T IMER 



•WAIT FOR READY TO SET 

I INCREMENT WAIT TIMER 

iBRANCH If* TIME HAS NOT EXPIRED 

iTyPE 'TIME EXPIRED WAITING FOR ROY 

j TAKE ERROR EXIT 

jCHECK FOR ENO Of TAPt 

•BRANCH IF NO EOT 

I TYPE 'END OF TAPE' 

iREWINO SLAVE 

I BRANCH IF ERROR ON REWIND 

iWRITE A RECORD 

jSET 'GO' BIT 

jWAIT FOR READ' 

I TAKE ERROR EXIT 

I CHECK ERROR EXIT 



/SLAVE COMBINATION) 



SELECTED SLAVE AT 'BOT*, L 'V SET IF 



j INITIALIZE CONTROLLER 

I GO TO TM COMMAND SUBROUTINE 

I BUS AODRESS (NOT ust D > 

;WO«D COUNT (NOT USFD^ 

I FRAME COUNT (NOT USED) 

jREWINO COMHANO 

iSe T GO' BIT 

iBRANCH IF 'BOT- SET 



I CHECK fcRROR BIT 
lORANCH If ERROR BIT 



Sf T 



tWAlT fOR TAPf MOTION TO STOP 



jSUfJROUUN* TQ WRITE 2S6 . WORD RECORD 
iCAi t : JSR PC.URITfr 



2214 006162 004537 006316 



WRITE} JSR 



R5» TMCMU 



tliO 10 TM COMMAND *jl'URlA'T INt 



c;nu o 


TM03-R lei TU.' 7 


W 1 


C/ Ttt.fr'. 


PI I 06 -APR- 84 


11505 


2252 


006166 


01 7V*V 




2255 


006170 


1 I fbOO 




2254 


006172 


17/400 




h. t- - 1 -' 


006174 


000060 






006176 


000207 




41 k_ -» 1 

2258 








225* 








,260 








2261 


006200 


00433 7 


006316 


2262 


006204 


017572 




2263 


00620b 


177600 




2264 


006210 


177400 




2265 


006212 


0000 70 




2266 


006214 


000207 




2267 








2?6a 








2269 








22 70 








-> ^ ■* i 


0062.6 


004 3.37 


006316 


22/2 


0062c? 


020172 




2275 


00622** 


177600 




22/4 


006226 


17 7400 




22 75 


006230 


0000 76 




2276 


006232 


000207 




22 77 








PP.78 








2279 


006234 


012765 


177777 


2280 


006242 


012715 


000031 


2281 


006246 


004737 


005774 


228? 


006252 


000207 




2285 








2284 








2285 


006254 


0047.37 


006162 


2286 


006260 


005215 




2287 


006262 


004737 


005774 


2288 


006266 


102412 




2289 


006270 


012765 


177777 


2290 


006276 


012715 


00003 3 


2291 


006 502 


004737 


0057 74 


2292 


006306 


102402 




2293 


006310 


004737 


005502 


2294 


006314 


000207 




22 95 








2296 








229/ 








2298 








cf29'i 








2 500 








2301 








2-302 








2303 


006 316 


012365 


000004 


2304 


006322 


012365 


000002 


2 50'' 


006 326 


012365 


000006 


?50fj 


006 332 


01231:, 




230/ 


006334 


000203 





c*> 
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DRIVE SUBROUTINES 

.WORD WTBUf 

.WORD WROCNT 

,WORD FRMCNT 

.WORD WFWD 

RTS PC 

{SUBROUTINE TO READ A 256, WORD RECORD, 
iCALL: JSR PC.READ 



000006 



000006 



SEQ 0054 



I BUS ADORFSS 

jWORO COLIN T 

l FRAME COUNT 

I WRITE FORWARD COMMAND 



READ; JSR 

.WORD 
.WORD 
.WORD 
.WORD 
RTS 

i SPROUT INE TO 
;CALL; JSR 



REVRD: 



JSR 
.WORD 

.WORD 
.WORD 
.WORD 
RTS 



TO 



TO 



{SUBROUTINE 

FWDSPC* MOV 

MOV 

JSR 

RTS 

{SUBROUTINE 
WRT.BKj JSR 

INC 
JSR 
BVS 
MOV 
MOV 
JSR 
BVS 
li: JSR 
2*; RTS 



iUBROUTINE TO 



CALL: 



TMCMDi 



JSR 

.WORD 

.WORD 

.WORD 

.WORD 

MOV 
MOV 
MOV 
MOV 
RTS 



REVERSE COMMAND 



R3.B0TMCHD 

RDBUF 

WRDCNT 

FRMCNT 

RDF WD 

PC 

INITIATE READ 
PC. REVRD 

R3.1MCM0 

RDBUF*256. 

WRDCNT 

FRMCNT 

RDREV 

PC 



SPACE FORWARD 1 RECORD 
•-I.FCCR5) 
*SPCFW0»1,(R5) 
PC.WAITRDY 
PC 

WRITE A RECORD AND BACK 
PC, WRITE 
(R5) 

PC.UA1TRD1 
2* 

1.FCCR5) 
0SPCREva,tR5) 
PC.WAITRQY 
2$ 

PC, DEL At 
PC 



LOAD A COMMAND 
R3.TMCMD 
BUS ADDRESS 
WORD C01*JT ir 
FRAME COUNT C. 
COMMAND 



{ADDRESS OF READ BUFFER 
|2'S COMPLEMENT OF WORD COUNT 
|2'S COMPLEMENT OF FRAME COUNT 
{READ FORWARD COMMAND 



{ADDRESS Of READ REVERSE BUFFER 
j2*5 COMPLEMENT Of WORD COUNT 
|2'S COMPLEMENT 0^ ' RAME COUNT 
{READ REVERSE COMMAND 



{LOAD RECORD COUNT 
{LOAD COMMAND 
{WAIT FOR READ* 
{RETURN 



SPACE OvtR 
{WRITE THE 



TMf RJCURD, 
RECORD 



{SET 00' BIT 



{LOAD RECORD COUNT 
I LOAD COMMAND 



{WAIT FOR TAPE MOTION TO -.TOP 



COMPt eMENM 
i COMPLEMENT) 



(R3)* t RA(R5 1 
CR3)*,WCCR5) 
(R3)»,FC(R51 
vR3>f t (R5) 
R3 



{I OAD BUS ADDRl SS 
1 1 OAD WORD COUNt 
{I OAD FRAME COUNT 
1 1 OAD COMMAND 
i RE TURN 



D! 



C/UUO 


imo3 u it> ui.*; 


Of 1 


C/Tl.fr.t , 


Pll 06 APR -84 


11:05 


J50» 








o$o^ 








0310 








0311 








0310 


006336 


016503 


000030 


0515 


006340 


010701 


001150 


0314 


006346 


000303 




03 IS 


006350 


006003 




0316 


006352 


006005 




031 : 


006354 


006003 




0518 


006356 


006003 




031* 


006360 


040 ;o 


1 7 7 760 


0320 


006364 


050703 


000060 


0301 


006370 


110301 




0300 


006370 


016503 


000030 


0305 


00637b 


000303 




0304 


006400 


042703 


17 7760 


0305 


006404 


050703 


000060 


0506 


0064 10 


110321 




0307 


006412 


016503 


000030 


0308 


006416 


006003 




0309 


006420 


006003 




0330 


006420 


006003 




0331 


006424 


006005 




0330 


0O6426 


042703 


17/760 


0333 


0064 32 


050703 


000060 


0334 


006436 


110301 




0335 


006440 


016503 


000v *0 


033d 


006444 


042705 


1 7 7 760 


03 3? 


006450 


050703 


000060 


0338 


G0t>454 


110321 




0339 


006456 


105011 




0340 


006460 


000004 


001150 


541 


006464 


00020 7 




0340 









MAC ill 30(1046) 06 APR 84 
DRIVE SUBROUTINES 
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St'Q 0055 



SNPT: 



(SUBROUTINE \0 PRtNT 


|JSR 


PC. SNPT 


MOV 


SN(R5),R3 


MOV 


O0DIG1TS.R1 


SWAB 


R3 


ROR 


R5 


ROR 


R3 


ROR 


R3 


ROR 


R3 


BIC 


0177760, R3 


BIS 


/26C»R3 


MOVG 


R3,(Rl)t 


MOV 


5N(R5).R3 


SMAB 


R3 


BIC 


0177/60, R3 


BIS 


0260. R 3 


MOVB 


R3,(R1)» 


MOV 


SNCR5),R3 


ROR 


R3 


ROR 


R3 


ROR 


R3 


ROR 


R3 


BIC 


OW7760.RS 


BIS 


0260. R 3 


M0V8 


R3.CR1)* 


MOV 


SN(R5).R5 


BIC 


CW77bO,R3 


BIS 


0060, R 3 


MOVB 


H3,(R1)» 


aao 


(Rl ) 


TiPE, 


ODIliUS 


RTS 


PC 



SERIAL NUMBER 



jGt T FIRST DIGIT 
iTILL PIRST DIGIT 

iGET SECOND DIGIT 



jGET THIRD DIGIT 



|Gt T l-OURTH DIGIT 

j T tF>|- St. RIAL NUMBER 

j RETURN 



h 



[ 



C*MEEU> TM03 
CZTEEE.Pll 



n \*> TU'/: Of i 

06-APR-84 11:05 



5344 
5345 
5346 
5347 
5348 
2349 
5350 
5? r il 
5355 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 



1) 
1) 
1) 
1) 
CI) 
(1) 
(1) 
5365 
5363 
5364 
5365 
5366 
536 7 
5366 
5369 
5 j / 
5371 
53 75 
5373 
5374 
53 75 
2376 
5577 
53 78 
53/9 
5380 
5381 
5385 
5383 
5384 
5385 
538b 
5387 



006466 
00647? 

0064 76 
006502 
006506 
006514 
006555 
006554 
006556 
006530 
006536 
006542 
006546 
006552 
006556 
006562 
006564 

006566 
006572 
006574 
006602 
006606 
006612 
006612 
006620 
006652 
006626 
006630 
006654 
006640 
O06642 
006646 
006652 
006656 
006662 
006666 
0066/2 
006 700 
006 702 
006706 
006 714 



006 720 
006 t?? 
006 754 
00t>756 

Out, 7 32 
006734 



015706 
005037 

013746 
013746 
015737 
055777 
001402 
000404 
055626 
015737 
012637 
015637 
105037 
105037 
105037 
005027 
000000 

005737 
001407 
015737 
005237 
000137 

122737 
001003 
000004 
000000 
OuoOGl 
005737 
001025 
105037 
000004 
013702 
OC4 737 
000004 
004 737 
125737 
001405 
004737 
013737 
013705 



000261 
005715 
103003 
000004 
000655 
015737 



000600 
001575 

000006 
000004 
006556 
177777 



000176 
000004 
000006 
001131 
001135 
001134 



000042 

000176 
006564 
006612 

000006 

014536 

014326 
006564 

011326 

014611 
001010 
003524 
001416 
0040 70 
000015 

003654 
001152 
001010 



015104 
004 3 75 



MAC 111 



301 1046) 
PROGRAM 



IN1T 



000004 
175556 



001000 



61$ 
60$ 
62$ 



CHNFLG: 



001000 



000041 



50$ 
1$: 



5$j 



0015 75 
001010 



4$ : 
5$: 
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SEQ 0056 



.SBTTL 

MOV 
CLR 

MOV 

MOV 

MOV 

CMF> 

BF.Q 

BR 

CMP 

MOV 

MOV 

MOV 

CLRB 

CLRB 

CLRB 

CLR 

,W0RO 

T5T 
BEG 

MOV 
TNC 
JMP 



PROGRAM INITIALIZATION 
OSTKPTR.SP 

aoiNBur 

61*6. -CSP) 
8*4, -(SP) 

0-1.8SWR 

60$ 

65$ 

(SP)»,(SP>* 

03WREG.SWR 
CSP)* ,304 
(SP)» ,806 

QOPRGF'LG 



I SET STACK PTR 



B*ASR_G 
30PSCNT 

(PC)* 


S042 

50$ 

SSWREG.SWR 

CHNFLG 

1$ 



CMPB 

BNE 

TYPE 

HALT 

TYPE 

1ST 

BNE 

CLRB 

TYPE 

MOV 

JSR 

TYPE 

JSR 

CMPB 

BEQ 

JSR 

MOV 

MOV 



*6 , a<>4 1 

5$ 

.I.REM 



j SAVE 



VECTORS 



t l JE T UP FOR 
j REFERENCE HARDWARE 



TIMEOUT 

SWITCH REGISTER 



j ADJUST STACK 
{POINT TO SOFTWARE 
{RESTORE VECTORS 



SWITCH REG 



l CLEAR PROGRAM FLAG 
j CLEAR ASK FLAG 
j SET PASS COUNT ■ 
M CLEAR CHAIN INOICATOR 
t i CHAIN MODE INDICATOR 
II 1/0 - CHAIN/NOT CHAIN MODE 
I {BRANCH IF IN DUMP MODE 

j {INVOKE SOFTWARE SUR 

j j SET CHNFLG - CHAIN MODE 

I {GO TO CHAIN ADDRESS 

{BRANCH IF NOT LOADED VIA TMDP 
{ADVISE USER TO REMOVE TMDP 



.M.NAM 

CHNFLG j 

5$ ; 

M.NAM 
.I.REG 

aoTMBASf ,R5 

PC.TYPCCT 
.SPACE 

PC, . INPUT 

ocn.soiNBur 

5$ 

pCCuvtau 

oidQCTAl 0.80TMBASF 
StfTMBASE.R'i 



SEE IF 
IF SUj 



j TYPE TITLE 




CHAIN MODE 




BR 




;D0 NOT TYPE 


TITLE ON RESTART 


;ASK USER TO 


TYPE CONT BASF ADRS 


I GET CURRENT 


CONT BASE ADDRESS 


{AND TtPE IT 





{ROUTINE TO CHECK U CONTROLLER IRHlO 
SEC 

TST (RSI 

BCC 6$ 

TWH .t.NCON 
BR INI T 



000004 6$ 



MOV 



ObRHTWP.oltfEHRVK 



j GET USER INPUT 
;D0 NOT CHANGE CURRENT VALUE 
; IF USER TlPES <CR* 
{CONVERT ASCII TO OCTAL 
;SET NEW ADDRESS 



IS AVAII AARl e 
{SET 'C IN PSW 
{BRANCH IF CONTRULLER AVAR 



{SET ERROR TRAP VICTOR 



F [ 



CTEE.E.O TM03 
CZTfcEk.Pll 



06-APR-84 11j05 



0389 

0390 

or.9i 

0390 
0393 
0394 

0395 
039b 
0397 
0398 
0399 
0400 
0401 
0400 
0403 
0404 
04 OS 
0406 
040? 
0408 
0409 
04 iO 
04 li 
0410 
0413 
0414 
0415 
0416 
0417 

0418 
0419 

0400 
0401 
0400 
0403 
0404 
0405 
04 06 
040 7 
0408 
04 09 
0430 
0431 
04 30 
04 33 
04 34 
0435 
04 36 
043/ 
04 38 
04 39 
0440 
0441 
0440 
.'44* 
0444 



006740 
006746 
006750 
006756 
006760 
006760 
006/64 
006770 
006770 
0067/6 
007000 
007006 
00/010 
007014 
00 7020 
007020 
007006 
007030 
007036 
007040 
007044 
007046 



007050 
007054 
00/056 
007060 
007064 
00/066 
0070/0 
007074 
007100 
00/104 



00/106 
007110 
00/114 
00/116 
007100 
00/104 
00 7106 
00/130 
007134 
00/140 
007140 
00/146 
00/150 
00 / 1 54 
00/160 
00/166 
007170 
00 / i rt 
007000 



105037 
010701 
0107C0 
005001 
005300 
001375 
005737 
001014 
000004 
004 737 
010700 
100710 
001403 
100710 
001013 
110637 

010701 
010700 
010701 
005300 
001374 
000417 



100710 
001414 
101027 
001001 
105720 
110001 
040701 
110761 
000040 
000761 



005000 
105 760 
001005 
005000 
100700 
0013/1 
000424 
110037 
0O4 73 7 
100566 
105737 

ooiou 

000004 
116037 
000004 
110637 
105060 
000/4/ 
105 737 



001107 
001160 
000004 



006564 

014656 
004070 
001070 
000101 



0000 



i r * 



001131 
001160 
000004 
177777 



000015 
000054 



177770 
177777 



001160 



000010 



001004 
005660 

001131 

015151 

001140 
015003 
001107 
001160 

001127 
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StQ 0057 



i ROUTINE TO GE 

DRIVES} CLRB 
MOV 
MOV 

1$: CLR 
DEC 
BNE 
YST 
BNE 
TYPE.l 
JSR 
MOV 
CMPB 
BCQ 
CMPB 
BNE 

0$: MOVB 
MOV 
MOV 

3$: MOV 
DEC 
BNE 
BR 



T TM03 DRIVES USER 

30ERFLG 

frDRVTHL.Rl 

$4,R0 

CR1)» 

RO 

II 

CHNFLG 

2$ 
,DRVS 

PC, .INPUT 

0IN8UF.R0 

O'A.CRO) 

2t 

OCR.CRO) 

4$ 

SP.PRGFLG 

ODRVfBL.Rl 

04, RO 

* l.CRDf 

RO 

3$ 

CHKDRV 



DESIRES TO TEST 

I CLEAR ERROR FLAG 
l MARK ALL DRIVES AS NOT TO 
{BE TESTED. A '0' INDICATES 
, THAT A DRIVE IS NOT TO BE 
t TESTED 

{BRANCH IF IN CHAIN MODE 



j GET USER INPUT 

jIF USER RESPONDS WITH 'A' OR 
j<CR> THEN ALL AVAILABLE DRIVES 
{ARE TO BE TESTED 

SET FLAG TO IND ALL DRIVES 
MARK ALL DRIVES TO BE TESTFC 
A * 1' INDICATES THAT A DRIVE 
IS TO BE TESTED 



{GO CHECK DRIVE AVAILABILITY 



;GET USER SELECTED DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 



4$ 



5$ 



j CHECK IF 'COMMA 1 

I STEP PTR PAST 'COMMA* 



001160 



CMPB *CR,(RO) 

BEQ CHKDRV 

CMPB (RO),*', 

BNE 5$ 

TSTB (RO)* 

MOVB (R0)».R1 

BIC -U77770.R1 

MOVB 4-1.DRVTBLCR1) 

NOP 

BR 4$ 

{ASCERTAIN THAT DRIVES (TM03'S) SPECIFIED ARE AVAILABLE 



CHKDRV; 
1$ 

0$ 



3$ 



015003 



4$ 



5$ 



CLR RO 

TSTB DRVTBL(RO) 

BNE 3i 

INC RO 

CMPB 08..R0 

BNE 1 1 

BR 5t 

MOVB RO.bWDRvNUM 

JSR PC.WODRVAVA 

BVC 0$ 

TSTB iJGPRGFlG 

BNE 4$ 

TV°t .E.NDRV 

MOVB OIGTABCRO).U«t»NAVA 

' YPE.U .NAVA 

MOVB SP.MOERf U» 

Cl RB DRV TBI (RO) 

BR OJ 



TSTB 



MOtRFLU 



{A 10) IN DRVTBI.(RO) INDICATFS 
;THE DRIVE IS NOT TO HE TESHP 
|A •!■ INDICATES TU BE TESTED 



{GET DRIVE o 

{AND CHtC^< U AVAILABLE 

j'V BIT SET IMOrCATES NOT AVAIL 

{DO NOT TYPE NOT AVAILABLE 

{MESSAGE IF ALL SElECIFD 

iSET DRIVE i> IN MESSAGE 

SET 'ERROR K.AG 

MARK DRIVE UNAVAU ABLE 

CHECK NE *1 DRIVE 

GO GET SLAVES IE NU ERROR 



C/TEEEO 


TM03 TE16-- TU/7 


W T 


C/TEEE . 


PI 1 06 -APR 84 


lliOS 


2445 


007204 


001256 




.7446 








244 7 








2448 


00 7206 


105037 


001127 


2449 


007212 


012701 


001172 


2450 


007216 


012700 


000040 


2451 


00/222 


005021 




2452 


007224 


005300 




2453 


007226 


001375 




?454 


00 7230 


012701 


00 a 72 


2455 


007234 


105760 


001162 


2456 


007240 


001007 




245; 


007242 


062701 


000010 


2458 


00 7246 


005200 




>4S^ 


00 7250 


122 700 


000010 


0460 


007254 


001367 




2461 


007256 


000457 




2462 








2463 


007260 


105737 


001131 


2464 


00 7264 


001021 




2465 


00 7266 


110037 


001004 


2466 


007272 


116037 


001140 


246 7 


007300 


000004 


014 726 


0466 


007304 


004737 


004070 


2469 


00 7310 


012703 


001272 


24 70 


007314 


122713 


000101 


24 71 


007320 


001403 




24 72 


007322 


122713 


000015 


24/3 


00 7326 


001015 




24 74 


007330 


11063 7 


001131 


24 75 


007334 


012701 


001172 


24 76 


007 340 


012700 


000040 


247 7 


00 7344 


012721 


177777 


24 78 


007350 


005300 




24 79 


007352 


001374 




2480 


007354 


105737 


001131 


2481 


007360 


001016 




2482 








2483 


00 7362 


122713 


000015 


2484 


007366 


001725 




2485 


00 73 70 


121327 


000054 


2486 


00 73 74 


001001 




248 7 


00 7 5 76 


105723 




2488 


007400 


112304 




2484 


00 7402 


042 704 


177770 


2490 


007406 


060104 




2491 


007410 


112714 


177777 


2492 


007414 


000762 




2495 








2494 








2495 


00 7416 


005000 




2496 


00 7420 


005001 




244 7 


00 7422 


012702 


001172 


2448 


00 7426 


105760 


001162 


2449 


00 7432 


001020 




2500 


0074 34 


005200 
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SEQ 0058 



BNE 



DRIVES 



{ELSE ASK USER TO RETVPt DRIVES 



{ROUTINE TO GET SLAVES ( TE16/TU77' S ) USER DESIRES TO TEST 



014745 



SLAVES j 


CLRB 


SOERFLG ;C 




MOV 


4SLVTBL.R1 




MOV 


432. ,R0 


H: 


CLR 


(Rl)* 




DEC 


RO 




BNE 


1$ 




MOV 


♦SLVTBl. .Rl 


2$: 


TSTB 


DRVTBLCRO) 




BNE 


4$ 


3$: 


AOD 


<>8. ,Rl 




INC 


RO 




CMPB 


08. ,R0 




BNE 


2$ 




BR 


CHKSLV 


4$. 


TSTB 


QOPRGF'LG 




BNE 


5* 




MOVB 


RO.DRVNUM 




HOVB 


DIGTAB(RO),aoi,DRV 




TYPE, I. 


SLVS 




JSR 


PC, .INPUT 




MOV 


0IN81* .R3 




CMPB 


* A.CR3) 




BEQ 


5$ 




CMPB 


0CR.(R3^ 




BNE 


7$ 


5$t 


MOVB 


SP.aoPRGEl.G 




MOV 


0SLVTBI..R1 




MOV 


032. ,R0 


6$: 


MOV 


*1.(R1)> 




DEC 


RO 




BNE 


6$ 




TSTB 


aoPRGEl.G 




BNE 


CHKSLV 


7$: 


CMPB 


OCR . ( R 3 ) 




BEQ 


3$ 




CMPB 


a\$) t i>* , 




BNE 


8* 




TSTB 


lR3)t 


8$: 


MUVB 


(R5). t R4 




BIC 


<»1 77770, R4 




ADO 


Rl ,H4 




MOVB 


if 1.CR4) 




BR 


n 


{ASCERTAIN THAT 


51 AWS ( Tf-:ib/TU7 7' 


CHKSLV: 


CLR 


RO 




CI R 


Rl 




MOV 


•>SLVTBl ,H2 


1$: 


t-'.ih 


DRVTBLCRO) 




BNf 


5* 


2S: 


INC 


RO 



I CLEAR ERROR INDICATOR 

{MARK ALL SLAVES C64,) AS NOT 
{TO EE TESTED. A INDICATES ,HAT 
{A DRIVE'S SLAVE IS NOT TO BE 

jTESTED 

{Rl POINTS TO DRIVE'S SLAVE 

{BRANCH IF DRIVE IS TO BE TE.STFD 

{£ IS AVAILABLE 

{STEP SLAVE PTR TO NEXT DRIVE'S 

{SLAVES AND INCREMENT DRIVE 

jCHECK ALL DRIVES 

{AND WHEN ALL DRIVES CHECKED 

jGO CHECK SLAVE AVAILABILITY 



{BRANCH IF USER SELECTED All 

{DRIVES 

{GET DRIVE 

{PREPARE USER ACTION MESSAGE 

iCE'i USER INPUT 

{SET PTR TO USER INPUT 

; AN 'A' OR <CR> AS FIRST CHAR 

{INDICATES TEST ALL SLAVES 



{SET 'ALL' INDICATOR 
{MARK ALl SLAVES > OR All 
{DRIVES AS TO BE TESTED 



{BRANCH IE ALL WAS SELECTED 



{GET USER SELECTED Si AVE S TOR 

{DRIVE 

{STEP PTR PAST 'COMMA 



;ANO MARK SEUCLt) SLAVE 
{AS TO BL TESTED 



SELtCTID ARE. AvAIl rt'.U E 

jRO WILL. CONTAIN THE DRIVE 4 
{AND Rl THE SLAVE 
{SET PTR TO SLAVE TABt t 
{BRANCH IE DRIVE SEt I CTED 
;t AVAILABLE, f OR TEST 
I INCREMENT DRIVE » 



c/teeeo i mo? 

C2Tt.th.Pli 



Tt.u.Tu/; or t 
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SfcQ 0059 



2501 
2502 
2503 
2504 
2505 
2506 
250/ 
2508 
2509 
2510 
2511 
2512 
251? 
2514 
2515 
25 lo 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
252/ 
2528 
2529 
2550 
2531 
2532 
2533 
2534 
2535 
25 36 
253/ 
253fl 
2539 
2540 
2541 
2542 
254? 
2544 
2545 
2546 
254 / 
254 A 
2549 
2550 
2551 
2552 
255*. 
2554 
2555 
2556 



007436 
007442 
007444 
00 74 50 
007452 
007456 
007460 
007464 
007470 
00 74 72 

0074 74 

007476 
00 7500 
007502 
007504 
007506 
00/512 
007514 

007516 

00/522 
007526 
007532 
007534 
007540 
007542 
007550 
00/556 
007562 
00/566 
007570 

007572 

00/576 
007600 



00/606 
00/612 
007616 
00/622 
007630 



00 7634 
00/640 
00/644 
00 /650 
00/656 
007660 

00 /662 
007666 



105 760 
001003 
062 702 
000405 
105737 
001002 
062 702 
022 700 
001356 
000437 

005001 
105712 
001006 
005201 
005202 
022701 
001371 
000747 

110037 
110137 
004737 
102363 
105737 
001012 
116037 
116137 
000004 
110637 
105012 
000744 

105/3? 
001203 
012737 



012/06 
105037 
10503/ 
01273/ 
105037 



113700 
113/01 
013 702 
122/3/ 
001001 
105012 

1 Or 760 
001011 



001161 

000010 

001131 

000010 
000010 



000010 



001004 
001005 
005706 

001131 

0011*0 
001140 
015165 
001127 



00U27 
0043/2 



000600 
001004 
001005 
0011/2 
001132 



001004 
001005 
00100b 
000006 



001162 



9$; 
10$: 



3$: 

4$; 

5$j 



6$: 



01517? 
015203 



7$: 

8*: 

000004 100$ 



TSTB 
BNF. 

ADD 
BR 

TSTB 
BNE 

ADD 
CMP 
BNfc 
BR 

CI.R 
TSTB 

BNfc 
INC 

in: 

CHI 1 
BNF. 
BR 



<DRVTBL-1>(R0) 

9$ 

OS . , R2 

10$ 

a#PRGR.G 

10$ 

*8. ,R2 

08. ,R0 

IS 

8$ 



Rl 

(R2) 

6$ 

Rl 
R2 
08 
4$ 
2$ 



.Rl 



MOVB RO.BOORVNUM 

MOVB Rl.aOSLVNUM 

JSR PC.aOSLVAVA 

BVC 5$ 

TSTB aOPRGFLG 

BNL 7* 

MOVB DlGTAB(RO),aOE.DRV 

MOVB DIGTABC Rl ) , aoE . NAVA 

TYPE.E.MSL.V 

MOVB SP.SOERFLG 

CLRB (R2) 

BR 5$ 

TSTB SOERFLG 

BNfc SLAVES 

MOV : ■ RRTRP.aOERRVEC 



; >>C WAS PREVIOUS DRIVE SELECTED 

j **C BRANCH If- AVAIL. 

I +*C ADJUST SLAVE POINTER 

; >*C WAS ALL SELECTED 

i**C ADJUST SLAVE POINTER 

j SLAVES. BRANCH TO 1$ U NOT ALL 

j DRIVES CHECKED OTHERWISE EXIT 



{SET SLAVE 

j BRANCH IE DRIVE 
lECTED TOR TEST 
j INCREMENT SLAVE 
{STEP PTR TO NEXT 



S SLAVE IS SEL 



>t AVE 



;G0 TO 4$ IF ALL SLAVES NOT 

{CHECKED 

j OTHERWISE GO TO 2$ ABOVE 

jPASS DRIVE £ SLAVE 9 

;AND CHECK IE AVAILABLE 

; 'V* SET INDCATES ERROR 

j DO NOT TYPE ERROR MSG IF Alt. 

{SLAVES SELECTED 

;ICATES ERROR, PREPARE ERROR 

{MESSAGE 

;SET ERROR INDICAIGR 
{CLEAR SLAVE TABLE ENTRY 
{GET NEXT SLAVE 

{BRANCH IF t-.RROR 

{ASK USER TO RETYPE SLAVES 



SCAN DRIVE AK'D SLAVE TABLE 
RESTART ADDRESS- PROGRAM 
AFTER ALl SELECTED DRIVE/SLAVE 



FOR DRIVE /SI AVE 
START 5 HERE WHEN 



COMBINATION 

START ADDRESS 



TO TEST 



001006 



RSTRTs MOV 0600, SP 

CLRB bWDRVNUM 

CLRB a*SLVNUM 

MOV OSLVTBL.aOSLVPTR 

CLRB aoUNTFND 



COMBINATIONS 
;SET 
{SET 



210 AND 



HAVE BEEN 
STACK PTR 

DRIVE AND 



TESTED, 
SLAVE 



SET PTR TO SLAVE TABI I 
CLEAR - UNIT FOUND' IND 



;PROGRAM RESTARTS HERE AFTER A 



BEGIN: 



000041 



IS 



MOVB a$DRVNUM,RO 

MOVB SO SI VNUM.R1 

MOV HOSI VPIR.R2 

CHPU 06,a04l 

BNF I $ 

CLRB CR2) 

TSfB URVTBL(RO) 

BNL 3$ 



DRIVE/SLAVE HAS BEEN TESTED 
;GET DRIVE i> 
tAND SLAVE" 
{GET SLAVE PTR 
{BRANCH IF LOADED 



VIA TMDP 



{SET DRIVE 00 .SLAVE 00 NOT TO 

iW rtsno. 

{BRANCH IF DRIVE AVAIL TO TfcsT 



I 5 



C/TEEEO 


1M03 Tt 16/TU77 


DM 


MACY11 


30(1046) 


06 -APR 84 11:0/ PAGE 2 


CZTEEE. 


Pll 06 -APR -84 


11:05 




PROGRAM 


INITIALIZATION 


2557 


007670 


005001 








CLR 


Rl 


2558 


007672 


062 702 


000010 






ADD 


G8. ,R2 


2559 


007676 


005200 






2$; 


INC 


RC 


2560 


007700 


022700 


000010 






CMP 


08 . , RO 


2361 


007704 


001366 








dni: 


1* 


2562 
25b 3 

^^4 


007706 


000137 


013624 






JMP 


Q0END 


007712 


105/12 






3$: 


TGTB 


(R2) 


2565 


007714 


001007 








BNE 


4$ 


2566 


007716 


005202 








INC 


R2 


2567 


007 720 


005201 








INC 


Rl 


2568 


00 7 722 


122701 


000010 






CMPB 


08. ,R1 


2569 


00772b 


001371 








BNE 


3$ 


25 70 


00 7 730 


005001 








CLR 


Rl 


25 ; 1 

~>5 7r' 


007 732 


000761 








BR 


2$ 


25/? 


007734 


110637 


001132 




4$: 


MOVB 


SP.80UNTFND 


25 74 


007/40 


110037 


001004 






MOVB 


RO.Q0DRVNUM 


25/5 


007 744 


110137 


001005 






MOVB 


Rl.80Sl.VNUM 


25 /6 
257/ 
2578 


007750 


010237 


001006 






MOV 


R2.30SLVPTR 


00/754 


105/37 


001135 




5*j 


TSTB 


O0ASELG 


2579 


007760 


001034 








BNE 


7* 


2580 


007 762 


112737 


000001 


001135 




MOVB 


01.ASFLG 


2581 


00 7 7 70 


005737 


006564 






TST 


CHNFLG 


2582 


007774 


001026 








BNE 


/$ 


258 3 


007 7 76 


10503 7 


001130 






CLRB 


80SKEWFLG ; 


2584 


010002 


000004 


015012 






TYPE, 


E.SPD { 


2585 


010006 


004737 


0040 70 






J5R 


PC, .INPUT 


2586 


010012 


012/03 


001272 






MOV 


0INBUF.R3 j 


258 7 


010016 


122713 


000015 






CMPB 


0CR.CR3) j 


2588 


n:o?z 


001405 








BEQ 


6* 


2589 


010024 


132713 


000001 






BITB 


01, (R3) ; 


2540 


010030 


001402 








BEQ 


6$ 


2591 


010032 


111337 


001130 






MOVB 


(R3) t W0SKEWFLG j 


2592 


010036 


022737 


000176 


001000 


6$: 


CMP 


0SWREG.SWR 


2595 


010044 


001002 








BNE 


7$ 


2594 


010046 


004 737 


002526 






JSR 


PC.GTSWR 


2595 


010052 








7$: 






2596 










j ROUTINE TO A 4 


iCERTAIN SI AVE TYPE 


259/ 










; TABLES 


(TE16 


OR TU/7) INTO SUM! 


2598 


01005? 


013/05 


001010 






MOV 


ii)0TMBASE.H5 : 


2599 


010056 


004 73 7 


005/36 






JSR 


PC.RHINIT ( 


2600 


010062 


012704 


000240 






MOV 


0FNOTBI. 5TTBL,R4j 


2601 


010066 


012703 


002124 






MOV 


0STIMTBI ,R3 j 


2602 


01007? 


012702 


001424 






MOV 


0TI- 16TTBI ,R2 ; 


2b03 


0100 76 


105037 


001136 






CI RB 


W0H lb { 


2604 


010102 


032765 


000004 


0000*. '6 




mi 


04.DTCR5) i 


2605 


oiouo 


001012 








BNE 


9$ 


2606 


010112 


012/37 


000070 


00101.' 




MOV 


056. ,05CT IM s 


260 / 


010120 


012/3/ 


000022 


001014 




MOV 


018,,L»APOa \ 


2608 


010126 


112223 






8$: 


MOVB 


(R2)*»(R3)* ; 


260** 


oior',0 


005304 








DEC 


R4 , 


*'6l0 


010132 


0013/5 








BNE 


8$ 


2611 


010134 


000416 








BR 


1U j 


£612 

















25-15 



StQ 0060 



j CLEAR SLAVE 

jAND STEP PTR TO NEXT 
{SLAVES AND INCREMENT 



DRIVE' 5 
DRIVE 



{EXIT TEST IF ALL DRIVES 
j CHECKED OTHERWISE CONTINUE 
j SCAN FOR NEXT 'UNIT' 

j BRANCH IF" SLAVE ON DRIVE IS 
{AVAILABLE THERWISE STEP 
jPTR TO NEXT SLAVE 
j INCREMENT SLAVE 
{UNTIL ALL SLAVES CHECKED 
{WHEN ALL SLAVE'S CHECKED 
{SET SLAVE 
{AND CONTINUE SCAN 

{INDICATE THAT A 'UNIT' IS FOUND 
{SET DRIVE 
{SET SLAVE 
{SAVE SLAVE PTR 



{BRANCH IE IN CHAIN MODE 

♦ ♦B CLEAR SKEW (SPEED) TESTS SELECTED FLAG 
ASK USER IF HE WANTS 10 RUN SPEED TESTS 

{GET USER INPUT 
GET RFPt.t 
DO NOT DO SKFW TESTS IF <CR> IS FIRST 

BRANCH IF <N' 

SET INDICATOR 

(BRANCH II- SOFTWARE SWR 

{NOT INVOKED 

;GET SWITCH REGISTER 

AND LOAD APPROPRIATE 5PFCFICATIQN 

BL AND GTIMTBL. 

GET BASE ADDRESS OF REGISTERS 

INIT DRIVE/SLAVE 

GE1 TABLE LENGTH 

AND STARTING ADDRESS Of TABLE 

GET ADDRESS Of TE16 TIME TABLE 

SET FLAG ■ TE16 

BRANCH IF TU/7 

SET US/TICK * 56 

SET 18 TICKS /MS 

MOVE TElb TIME AND GAE TABLES 

INTO STIMTBl 6 GUMTBL 

k X 1 T HUU! INF 



1M03 
C2TEEE.P11 



Tt 16 TU.V l)F 1 
06 -APR 84 11:05 



.!M3 
2614 

2615 

2616 
261? 
2618 
^19 

2620 

2b21 

262 3 
2*24 

2025 

2626 
262 ; 

2628 
2629 
2630 
2631 
2632 
2633 
2654 
2t>35 
2636 
265? 
2638 
(1) 
2639 
2640 
264 1 

2642 
264 3 
2644 
264 5 
264 5 
264 ? 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2h55 
26 5 O 
265/ 
2658 
26 r >i 

26#.0 

26^1 
2662 
266' 
2 hh 4 
2665 
26 ■>;. 
eS6 / 



010136 

010142 
010150 
010156 
010164 
010166 
010170 
010172 



010172 
010176 
010202 
010204 
010210 
010212 
010216 
010222 
010226 



010234 
010240 
010242 
010246 
010250 
010254 
010256 
010262 
010264 
010270 
010274 
010276 
010302 
010306 
010310 
010316 
010320 
010322 
010326 
010334 
01U340 
010546 
010350 
010354 
010:* 60 
CU03M 
0105/2 
010400 
010404 
010410 
010412 



012702 
112/37 
012737 
012737 
112223 
005304 
001375 



10503 7 
013705 
010500 
062 700 
010501 
062701 
012703 
105037 
052 737 



004737 
102504 
10573 7 
001006 
004737 
005215 
004 737 
1024 73 
117702 
042702 
001421 
000004 
004737 
006302 
016237 
000004 
000000 
000004 
016237 
000172 
0327// 
0010 54 
000004 
J 1 5 /02 
115/04 
11623/ 
11643/ 
0000O4 
105/'./ 
00100 ' 
000004 



001664 
000001 
000120 
000003 



001126 
001010 

000006 

000012 
005212 
001125 
000100 



001402 
002444 
002444 
002000 

016245 
001004 
001005 
001140 
001140 
016362 
001136 

016445 



MACU1 



001136 
001012 
001014 



S0( 1046) 
PROGRAM 

9$; 



10$ 



06 -APR -84 11 
INITIALIZATION 



0/ PAGE 25-16 



SEQ 0061 



11$ 



MOV 0TU77TTBL. ,R2 

MOVB frl,a#TE16 

MOV 460.,05CTIM 

MOV 43,GAP0EL 

MOVB CR2)*,(R3)f 

DEC R4 

BNE 10$ 



jGET 



TIME TABLE 



}5ET FLAG 



ADDRESS OF TU77 
TU77 
»SET US/TICK - 80 
I SET 3 TICKS PER 
{MOVE TU77 TIME AND GAP TABLES 
jINTO STIMTBL £ GTIMTBL 



25MS 



{NOTE THIS IS NOT A TEST 
5 INITIALIZE PROGRAM FLAGS 



177560 



TSTOOOs Cl.RB 


o^TSTNUM 


MOV 


aOTMBASE.RS 


MOV 


R5.R0 


ADD 


#KC.RO 


MOV 


R5.R1 


ADO 


ODS.Rl 


MOV 


0TIMER.R3 


CLRB 


HtflTCNT 


BIS 


*ioo,aMi<s 



{SET TEST i> 

{SET ADDRESS OF 



FIRST TM03 REG 



{RO CONTAINS ADDRESS OF FC REG 

iRl CONTAINS ADDRESS OF DS REG 
SET JUMP ADDRESS TO TIMER 
CLEAR SUBTEST ITERATION COUNT 
SET KEYBOARD IE BIT 



GET USER RUN PROCEDURE 

IF SUR <05::00> IS NOT THEN RUN TEST IN SWR<05::00> 

OTHERWISE RUN ALL TESTS 



006100 

001130 

006162 

005774 

170510 
177740 

015331 
003224 

002364 010320 



10$ 



001002 

170432 



01M;w 
01644 1 



1$ 



2 



JSR 

BVS 

TSTB 

BNE 

JSR 

TNC 

JSR 

BVS 

MOVB 

B1C 

BEQ 

TYPE, 

JSR 

ASL 

MOV 

TYPE 

.WORD 

T Y PE , 

MOV 

JMP 

BIT 

BNE 

r tpi . 

MOVB 

MOVB 
MOVB 
MOVB 

Type, 

VSTH 
UNt 

type, 



PC, .REWIND 
99$ 

SfrSKEWri.CJ 
10$ 

PC, WRITE 
CR5) 

PC WAITP'JY 
9<>i 

S5WR.R2 
01/7740.R2 
2$ 
E.HDR 

PC.TYPOCT 

R2 

NAMPTRCR2) 


CRLf 

TST1BLCR2) 

qJT ( ;TTBi ' R2 

osuio.aswR 

I .HI1R1 

DRVNLM.F2 
S1.VNUM.R4 
DIG1ABCR2J 
DIGTABCR4) 

L .HDR2 

h)ME16 

I. .TE16 



.1$ 



,aWSCPAOR 

) 



{REWIND SLAVE 

{BRANCH IF ERRO'J ON REWIND 

{♦♦B BRANCH IF SWEW (SPEED) TEST SEl ECTED 

{WRITE A RECORD 
{SET 'GO' BIT 
{WAIT FOR READY 

{GET SWITCHES 

{CLEAR ALL BUT TEST 

;£ BRANCH IF TEST WAS SELECTED 

{TYPE TEST if 

{FORM INDt-X VALUE 

;GET ADDRESS OF TEST'S NAME 
{AND TYPE IT 



{SIT SCOPt: ADDRESS FOR TEST 
jGG TO TEST 

{BRANCH IF TIMES NUT TO BE TtPED 



l o)*l..URV 

,a«n. .slv 



GET DRIVE 
AND 51 -Wr Q 

Sf T DRIVE AND St Ave !>' S 
i INTO I .HDR2 MESSAGE 



l»HANCh H NOT Tfc 16 

jTYpe 'Thi* 



\< 



C/TEEEO 


TM03- TLUi/TU/7 


Of 1 


CZTEEt . 


Pll 06 -APR -84 


11:05 


0*68 


010416 


000400 




0669 


010420 


000004 


016453 


06 /o 


010424 


000004 


016461 


0t>71 


010430 


004 737 


006336 


0670 


0104 34 


000004 


0164 73 


06 73 


010440 


105737 


001130 


06 :4 


010444 


001405 




Ob'/M 


010446 


00013 7 


01374? 


Ob 7 b 


0104V 


104400 




Ob-'7 


010454 


000137 


010170 


0t>.'8 


010460 


010737 


010466 


c>79 









MACY11 30C1046) Ob -APR -84 11:0/ 
PROGRAM INITIALIZATION 



00100, 





OR 4 % 


3$: 


\ rPE,L.TU77 


4$ j 


TYPE.L.SER 




JSR PO,SNP T 




TYPE.L.HDR3 


5i: 


TSTB aaSKLWFLG 




BEQ 100$ 




vJMP 3#SKt:uTST 


99$: 


HIT 




JMP TSTOOO 


100$: 


MOV #TST001,3*SCPADR 



PAGb 05-17 



} TYPE 

:TYPE 



SEQ 0060 



TU7 7 

SERIAL 9- 
jPRINT SLAVE SERIAL I) 

j*»B BRANCH IE SPEED TESTS NOT 

{SR.ECTED 

{GO DO SPEED TESTS 

{LOOP TEST A r . LONG AS ERROR PERSISTS 
;SET SCOPE LOOP ADDRESS 



L 1 



c/tkeeo TMovn.it* m/; on 

CZTLEE.P11 06-APR-84 11 



05 



2b8l 








«?68»"? 








2683 








2684 








2685 








2686 








2687 








2688 


010466 


112757 


000001 


2689 


010474 


012702 


010520 


2690 


010500 


004757 


006100 


(1) 


010504 


102420 




2o91 


010506 


004 757 


006162 


2692 


010512 


004 737 


005122 


269? 


010516 


005215 




2694 








2695 


010520 


005765 


000032 


2696 


010524 


100002 




2697 


010526 


000163 


005212 


2698 








2699 


010532 


004 737 


005774 


2700 


010556 


1O2405 




2701 


010540 


004 757 


005250 


2702 


010544 


000401 




2705 


010516 


104400 




2704 


010550 


104000 




2705 








2706 








2707 








2708 


010552 


112737 


000002 


2/09 


010560 


004 737 


006162 


2710 


010564 


012702 


0105/6 


2711 


010570 


00473/ 


005122 


2712 


01C5/4 


005215 




2715 








2714 


010576 


005765 


000052 


2 /lb 


C 10602 


100002 




2/16 


010604 


000163 


005212 


2717 








2 718 


010610 


004 75/ 


0057 74 


2719 


010614 


102405 




2720 


010616 


004 75 7 


005250 


2721 
2722 
2725 


010622 


000401 




010624 


104400 




2 724 
2 /2b 
2 /26 


010626 


104000 










2 /2 / 








2 728 


010650 


112737 


000005 


2 729 


0106 56 


004 73/ 


006162 


2 750 


010642 


005215 




2/51 








2/52 


010644 


00*,/ 10 




2/55 


010646 


001404 




2/54 


010650 


52/11 


040000 


27 5b 


010654 


001017 





MACY11 30C 1046) 
START UK 



001126 



001126 



06 -APR -84 
TESTS 



11:07 PAGE! 25-18 



SEQ 0063 



{TEST 
5 THIS 
•MOVE 
{FROM 



.SBT1L START OK TESTS 
001 - WRITE FROM BOT 
TEST WILL MEASURE ACCELERATION 



DELAY REQUIRED TO 



THE TAPE APPROXIMATELY SEVEN C7) INCHES FORWARD 
DEAD STOP BEFORE STARTING TO TRANSFER DATA. 



001126 TST001: 



{THIS TEST MEASURES TIME FROM 'GO'-l TO 'ACCL'-O. 



IS: 



2$: 



99$: 
100$: 



MOVB 

MOV 

JSR 

BVS 

JSR 

JSR 

INC 

1ST 

BPL 
JMP 

JSR 

BVS 

JSR 

BR 

HLT 

SCOPE 



01.6WTSTNUM 

01$, R2 

PC,. REWIND 

99$ 

PC, WRITE 

PC.TIMON 

CR5) 

TCCR5) 

2$ 

TIMERCR3) 

PC.WAITRDY 

99$ 

PC, riMOK 

100$ 



j SET TEST 

{SET RETURN PC FROM TIMER 

{REWIND SLAVE 

{BRANCH IF ERROR ON REWIND 

j GO SETUP WRITE COMMAND 

; TURN TIMER ON 

{SET 'GO' BIT 

{BRANCH WHEN • ACCl. ' «0 

jGO TO TIMER 6 RETURN VIA R2 

{WAIT FOR COMMAND TO FINISH 
{BRANCH IF tRROR 
{GO CHECK TIME 



; TEST 002 - WRITE START 
{THIS 1ST MEASURES TIME FROM 
TST002: MOVB $2,a<>TSTNUM 
JSR PC.WRITF 
MOV 01$, R2 
JSR PC.TIMON 
INC CR5) 



GO' =1 TO 



IS: 


TST 
BPL 
JMP 


TC(R5^ 

2$ 

TIMER(R3^ 


2*: 


JSR 
BVS 
JSR 
BR 


PC.WAITRDY 

99$ 

PC, FIMOK 

100$ 


99$; 

100$: 


HI. 1 

SCOPt 





ACCL* »0. 

iSET TEST 2 

{INITIATE WRITE COMMAND 

{SET RETURN PC FROM TIMER 

{SET 'GO' BIT 

{BRANCH WHEN ' ACCi ' 

{GO TO TIMER S RETURN VIA R2 

•,UAIT FOR READt 
{BRANCH IF ERROR 
;G0 CHECK TIME RECORDED 
jFXIT VIA SCOPE 

{REPORT ERROR 



;TEST 005 WHITE SHUTDOWN 

j THIS TEST Mt.ASURtS TIMF FROM 

TST003; MOVB .75, bJ.'M 5 INUM 

JSR PC, WRITE 

INC (R5) 



*FC REG' =0 



TO ' GUDN' -1. 
{SET TESTM 
{INITIATE WRITE 

{SET 'GO' BIT 



COMMAND 



1$: 



1M 


CRO) 


be a 


2$ 


BIT 


fll-RH 


BNf 


99$ 



iRn 



{BRANCH WHEN WRITING FINISHED 
{MONITOR ERROR BIT 



M r » 



C/TEEEO 1M03-TL16/TU7 7 Df 1 
CZTEEE.P11 06-APR-84 11:05 



273b 


010656 


000772 




2737 








2738 


010660 






(1) 


010660 


004 737 


005122 


2739 


010664 


010702 




2740 


C10666 


032711 


000020 


2741 


010672 


001002 




2/42 


010674 


000163 


005212 


274? 








2744 


010700 


004737 


0057 74 


2 745 


010704 


102403 




2746 


010706 


004737 


005250 


2 74 7 


010712 


000401 




2748 


010714 


104400 




2/49 


010716 


104000 




2750 








2751 








2/52 








2753 


010720 


112737 


000004 


2754 


010726 


004737 


006162 


2 755 


010732 


005215 




2756 








2/57 


010734 


005710 




2 758 


010736 


001404 




2759 


010740 


032711 


040000 


2/60 


010744 


001026 




2761 


010746 


000772 




2 762 








2763 


010750 


032711 


000020 


2764 


010754 


001004 




2765 


010756 


032711 


040000 


2766 


010762 


001017 




276 7 


010764 


000771 




2768 








2 769 


010766 






CI) 


010766 


004737 


005122 


2770 


010772 


010702 




2771 


010774 


032711 


000020 


2 772 


011000 


001402 




2 7 73 


011002 


000163 


005212 


27 74 








2/75 


011006 


004 737 


0057 74 


27/6 


011012 


102403 




27 77 


011014 


004 73/ 


005250 


2778 


011020 


000401 




27 79 








2 780 


011022 


104400 




2781 


011024 


104000 




2 782 








2783 








? 784 








2 785 


011026 


112 73/ 


000005 


2786 


011034 


004 737 


006100 


CI ) 


011040 


102422 




2787 


011042 


004/3 7 


006200 


2788 


011046 


012702 


011060 



MACYll 30(1046) 06 -APR -84 11:07 PAGE 25-19 
START OF" TESTS 



SEQ 0064 



00112^ 



fcR 



1$ 



2$ 





*.f>R 


PC.UMON 




KPV 


PC.R2 


3$: 


BIT 


0SDWN.CR1) 




BNE 


4$ 




JMP 


TIMERCR3) 


4$: 


JSR 


PC.WAITRDY 




BVS 


99$ 




JSR 


PC.TIMOK 




BR 


100* 


99$: 


HLT 




100$: 


SCOPE 





{TURN TIMER ON 

:LOAD RETURN PC FROM TIMER 

t BRANCH WHEN OS <SDWN> SETS 

GO TO TIMER £ RETURN VIA R2 

WAIT FOR READY 

GO CHECK TIME RECORDED 

REPORT ERROR 



:TEST 004 - WRITE SETTLEDOWN 

j THIS TEST MEASURES TIME FROM 'SWDN'-l TO ' SWUN'-O. 
001126 TST004: MOVB 44,30T5TNUM 





JSR 


PC.WRITE 




INC 


(R5) 


1$: 


TST 


CRO) 




BEQ 


2$ 




BIT 


SERR.CRl) 




BNE 


99$ 




BR 


1$ 


2$: 


BIT 


OSDWN.(Rl) 




BNE 


3$ 




BIT 


0ERR.CR1) 




BNE 


99$ 




BR 


2$ 


3$: 








JSR 


PC.TIMON 




MOV 


PC.R2 




BIT 


4SDWN.CR1) 




BEQ 


5$ 




JMP 


TIMERCR3) 


55: 


JSR 


PC.WAITRDt 




BVS 


99$ 




JSR 


PC.TIMOK 




BR 


100$ 


99$ : 


HLT 




100$ : 


SCOPE 





SET 'GO' BIT 

BRANCH WHEN WRITING FINISHED 

CHECK ERROR BIT 

jWAIT FOR ASSERTION OF 'SOWN' 
{MONITOR ERROR BIT 



;TURN TIMER ON 

{SET RE. TURN PC FROM TIMER 

{BRANCH UHt'N SWDN CLEARS 

j GO TO TIMER L RETURN VIA R2 

jWAIT FUR READ> 



; TEST 005 READ FROM BOT 
{THIS TEST MEASURES TIME FROM 
TST0Q5t MOVB GS.aoTSTNUM 
JSR PC.. RE WIND 
BVS 99$ 
JSR PC. RE- AQ 
MOV #1$.R2 



GO' '1 TO *ACCt * 0. 

;SET TEST £5 

}R{ WIND SI AVE 

{BRANCH \v ERROR ON REWIND 

jSET RETURN PC FROM TIMER 



C7TEEE0 T M03-TE16/TU7 7 DH 
CZTEtE.Pll 06-APR-84 11;05 
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START C TESTS 



N!5 

11:07 PAGE 25-20 



2/89 
2790 
2791 

2 792 
2793 
2794 
2795 
2/96 
279 7 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
28 15 
2816 

281 / 
2818 
2819 
2820 
2821 
2822 
282? 
2824 
2825 
,'826 

282 7 
2il2« 
2829 
2830 
2831 
2832 
2833 
2834 
283'.) 
2836 
233/ 
2838 
2839 

2840 
( 1 ) 
284 1 
2H42 
284 3 



011C52 
C11CS6 

011060 
011064 
011066 

011072 

011076 
011100 
011104 

011106 
011110 



011112 
011120 
011124 
011126 
011132 
011136 
011142 

011144 
011150 
011152 

011156 
011162 
01.1164 
011170 

011172 
011174 



0111/6 
011204 
011210 
011212 

011216 



011224 
011226 
011232 
011234 

011236 
011236 
011242 

011244 
011250 



004 73 7 
C05215 

005 765 

100002 
000163 

004737 

102403 
004 737 
000401 

104400 
104000 



112737 
004737 
102422 
004737 
012702 
004737 
005215 

005765 

100002 
000163 

004737 
102403 
004 737 
000401 

104400 
104000 



112757 
004 737 
102430 
004/37 
005215 

022710 

001404 

032711 

001017 
000771 



004/3/ 
010702 
032/11 
001002 



005122 

000032 
005212 
005774 

005250 



000006 
0-.254 

006200 
011144 
005122 



000032 
005212 
005774 
005250 



00000 7 
006254 

006200 



000400 
040000 

005122 

000020 



SEQ 0065 



001126 



001126 



1$ 



2$ 



99$: 
100$ 



JSR 
INC 

TST 

BPL 
JMP 

JSR 
BVS 
JSR 
BR 

Hl.T 

SCOPE 



PC.TIMON 
CR5) 

TC(R5) 
2% 

TIMERCR3) 

PC.WAITRDY 
99$ 

PC.TIMOK 
100$ 



{TURN TIMER ON 
j SET 'GO' BIT 

{BRANCH WHEN 'ACCL' RESETS 

jGO TO TIMER € RETURN VIA R2 

;WATT FOR READY 
.•BRANCH IK ERROR 
{CHECK RECORDED TIME 



{TEST 006 - READ START 

{THIS TEST MEASURES TIME FROM 'GQ'*1 TO 'ACCL'=0. 



TST006: MOVB 
JSR 
BVS 
JSR 
MOV 
JSR 
INC 



1$ 



2$ 



99$; 
100$ 



TST 
BPL 
JMP 

JSR 

BVS 
JSR 
BR 

HIT 

SCOPE 



46.S4TSTNUM 

PC.WRT.BK 

99$ 

PC, READ 

#1J.R2 

PC.TIMON 

(R5) 

TCCR5) 
2$ 

TIMERLr*3) 

PC.WAITRDY 
99 J 

PC.TIMOK 
100$ 



{SET TEST 46 

{WRITE A RECORD £ BACK SPACE 



;SET RETURN PC FROM TIMER 
iTURN TIMER ON 
{SET 'GO* BIT 

{BRANCH WHEN * ACCt ' RESETS 

{GO TO TIMER 6 RETURN VIA R2 



{TEST 007 •• READ SHUTDOWN 

{THIS TEST MEASURES TIME f ROM • EC REG' =FRAME COUNT 10 ■ SWDN 



TST007: MOVB 
JSR 

BVS 
JSR 
INC 



1$ 



CMP 
BEU 
BIT 
BNE 
BR 



JSR 

MOV 
Hll 
BNE 



« / , ciW T S T NUM 

PC.WRT.RK 

99$ 

PC. READ 

(R5) 

i RMCNT.lRO) 

2$ 

tfl MR.Crtl) 

94$ 

1$ 



PC, TIMON 
PC.R2 
>VSDWN,(R1) 
5$ 



I. 



{SET TEST 07 

{WRITE. A RECORD fc BACK SPACE 
{BRANCH If ERROR 

{SET 'GO* BIT 

{WAIT FOR f-RAME COUNT 10 
5 - it Of FRAMES WRITTEN 
iMONITUR ERROR BIT 



TURN TIMER ON 

St. T Re 1 URN PC fROM TIMER 

BRANCH WHEN SUWN SETS 



c/teeeo 


TM05-Tf.lt R7." 


OF T 


C/TEEE . 


Pll 06 APR 84 


11:05 


0844 


011050 


0001t5 


005010 


0845 








0846 


C11056 


004 75' 


005 7 74 


084; 


011060 


100402* 




0848 


011064 


0O4757 


005050 


0849 


011070 


000401 




0850 








0851 


0110/0 


104400 




.?«W 


011074 


104000 




085? 








0854 








0855 








085b 


Oil07t 


110757 


000010 


085; 


011504 


010700 


011560 


2858 


011510 


004 757 


006054 


0859 


011514 


100456 




0860 


011516 


004757 


006000 


08b 1 


011500 


005215 




0860 








0865 


011524 


105711 




0864 


011506 


100404 




0865 


011350 


052711 


040000 


0866 


011554 


001006 




086: 


011556 


000770 




0868 








0869 


011540 


050711 


000000 


0870 


011544 


001004 




0871 


011346 


0527U 


040000 


087^ 


011550 


001017 




0873 


011554 


000771 




0874 








08 75 


011556 






m 


011556 


004 757 


005120 


08 76 


011560 


030 765 


000000 


0877 


011570 


001402 




0878 


011370 


000165 


005210 


0879 








0880 


011376 


004757 


005774 


0881 


011400 


100403 




0880 


011404 


004757 


005050 


0885 


011410 


000401 




0884 








0885 


011410 


104400 




0886 


011414 


104000 




088 7 








0888 








0889 








0890 








0891 


011416 


110 7', 7 


000011 


0690 


011424 


010700 


011460 


089 3 


011450 


004 73 7 


006160 


0894 


011454 


005; 15 




0895 


011436 


004/3 7 


005 7 74 


t '89f. 


011440 


100400 




• > 8*7 


011444 


004 7 3 ■' 


OOVjOO 


08% 


OliAtiO 


GQ4737 


006016 



MACU1 30(1046) 06 APR -64 
START OF TESTS 



11:07 PAGE OfvOl 



001106 



000010 



0011^6 



3$ 



99$: 

100$ 



JMP 

JSR 
BVS 
JSR 
BR 

HI T 
SCOPE 



TIMERCR5) 

PC.WAITROY 
99$ 

PC . T IMOK 
100$ 



I TEST 010 RE AD SETTLEDOWN 

I THIS TEST MEASURES TIME TROM 'SWDN'-l 

TSTOIOj MOVB OlO.tfOTSTNUM 

MOV *4f,R? 

JSR PC.WRT.BK 

BVS 99$ 

JSR PC, READ 

INC (R5) 



1$ 



0$ 



3$ 
4$ 

5$ 



99$: 

100$ 



TSTB 

BMI 
BIT 
BNE 
BR 

Bit 
BNE 
BIT 
BNE 
BR 



JSR 
BIT 
BEQ 
JMP 

JSR 
BVS 
JSR 
BR 

K T 
SCOPE 



(RP 
0$ 

•CRR.CR1) 
99$ 

1$ 

*SOWN,(Rl) 
3$ 

OE RR.CR1) 
99$ 

01 



PC.TIMON 
•SDWN.DSCR5) 
5$ 
TIMt'R(RJ) 

PC. WAITRDt 

9'*$ 

PC. T IMOK 

100$ 



SEQ 0066 



jGO TO TIMER 6 RETURN VIA R2 



jREPORT ERROR 



TO ' SWDN* -0. 



I SET TEST 010 

jSET RETURN PC PROM TIMER 
j WRITE A RECORD C BACK SPACE 



I SET 'GO' BIT 



(WAIT TOR READt 
I BRANCH WHEN SET 
j CHECK ERROR BIT 



jWAIT FOR ASSERTION OF 'SOWN 
I MOM TOR ERROR BIT 



j Tl«N TIMER ON 

j WAIT FQR NEGATION OE SOWN 

iCiO TO TIMER & RETURN VIA RO 



I TEST Oil REAP Rl VtRSt STrtRT 
iTHIS TfcST MEASURES TIME FROM 
TSTOUt MOVB Oil.yoTSTNUM 



GO 1 *! 10 ' ACCl * *0. 



MOV 


01$, RO 


JSR 


PC.WRTTE 


INC 


(R5) 


JSR 


PC. WAITRDt 


Bv» 


99$ 


JSR 


PC, OH Ai 


JSR 


PCiRtVHU 



I SI T RETURN PC FROM TIMER 
» WRITE A RECORD 
iM'T ' lill ■ BIT 



iWAH KUH TAPL MUtlUN TO MOP 



o 



C/HUO 


TM05 H 16 1U/7 


W 1 


MACU1 301 1046) 06 APP 


■84 11:0/ PAGE 25 22 


cznik . 


PI 1 06 -APR 84 


11:05 


START 


OF TESTS 




28^9 


011454 


004 757 


005122 




JSR 


PC.TIMON 


2*00 


011460 


005215 






TNC 


(R5) 


2901 














2902 


011462 


005 765 


000032 


1$: 


TST 


TC(R5) 


2903 


011466 


100002 






BPL 


2$ 


2904 


011470 


000165 


005212 




JMP 


TIMERCR3) 


2905 














2*0* 


011474 


004757 


0057^4 


2$: 


JSR 


PC.WAITRDY 


290 : 


011500 


102405 






BVS 


99$ 


2908 


01 1502 


004 75 7 


005250 




JSR 


PC.TIMOK 


2^10 


011506 


000401 






BR 


100$ 


011510 


104400 




99$; 


HI.T 




L^L' 


011512 


104000 




100$: 


SCOPE 




2913 














2^14 








jTEST 


012 READ 


REVERSE SHUTDOWN 


2<»i5 








;THIS 


TEST MEASURES TIME FROM 'EC REG' 


2916 


011514 


112757 


000012 


001126 TST012; MOVB 


012,«0TSTNUM 


2917 


011522 


012 702 


011572 




MOV 


*5$,R2 


29 ie 


011526 


004757 


006162 




JSR 


PC, WRITE 


2919 


011552 


005215 






TNC 


(R5) 


2920 


011554 


004757 


0057 74 




JSR 


PC.WAITRDr 


29.? 1 


011540 


10242 7 






BVS 


99$ 


2922 


011542 


004757 


006216 




JSR 


PC.REVRD 


2925 


011546 


005215 






INC 


(R5) 


2924 














2925 


011550 


022710 


000400 


1$: 


CMP 


* FRMCNT.CRO) 


2926 


011554 


001404 






BEQ 


2$ 


29?: 


011556 


032711 


040000 




BIT 


aERR.CRl) 


2928 


011562 


001016 






BNE 


99$ 


29^9 


011564 


000771 






BR 


1$ 


29*0 














2951 


011566 






2$: 






U) 


011566 


004757 


005122 




JSR 


PC.TIMON 


2952 


0U572 


052711 


000020 


3$: 


BIT 


OSDWN.CRt ) 


2955 


011576 


001002 






BNE 


4$ 


2954 


011600 


000165 


005212 




JMP 


TIMERCR3) 


2935 














2956 


011604 


004^57 


005774 


4$: 


JSR 


PC.WAITHUY 


295 .' 


011610 


102405 






BVS 


99$ 


2958 


011612 


004 7 5 7 


005250 




JSR 


PC.TIMOK 


29 59 


011616 


000401 






BP 


100$ 


294 














2941 


011620 


104400 




99$; 


HLT 




2942 
294 5 


011622 


104000 




100$: 


scope 




2944 








I TEST 


015 RfcAD 


Rt VERSE 5E V TIE DOWN 


294 5 








l THIS 


TEST MEASURES TIME ROM ' SOWN 1 *1 


2946 


011624 


112757 


000015 


00U2& TSTQiSl M0V2 


OIS.UMS'NUM 


294,' 


011652 


012702 


011716 




MOV 


MI.R.' 


2948 


0116 56 


004 7 57 


006162 




JSH 


PC .WRITE 


2949 


011642 


005215 






INC 


(R5) 


2950 


01 1644 


004 7 5 7 


0057 74 




JSR 


PCWAlTMDi 


2**51 


011650 


1024 55 






Hv*i 


49$ 


2952 


011652 


004 73 7 


006216 




JSR 


PC.REVRO 


2955 


0116S6 


00521$ 






INC 


CR5) 



SfeQ 0067 



iTURN TIMER ON 
l SET 'GO* BIT 

I BRANCH WHEN ' ACQ.' • 

iGO TO TIMER 6 RETURN VIA R2 

I BRANCH IF ERROR 



■ FRAME. COUNT TO 'SOWN 1 -I. 

jSET RETURN PC FROM TIMER 
i WRITE A RECORD 
jSET 'GO' BIT 



jSET 'GO' BIT 

iBRANCH WHEN FRAMt COUNT 
l« ff Of" RECORD WRITTEN 
iMONITOR ERROR BIT IN ' DV REG 



i TOWN TIMER ON 

I BRANCH WHfN SOWN SETS 

I GO TO TIMER f. RETURN VIA R? 

IWAIT TOR READY 



TO ' SOWN' -0. 

I Si T R.-'.'URN PC FROM TIMER 
i WRI?* A RECORD 
jSET 'GO- BIT 



I st T GO* BIT 



c/u-m o 


imo5 Tt i6- lu.v 


Of 1 


CZTEEE . 


PI 1 Oh APR 84 


11:05 


2954 

2^55 


011c>60 


105711 




29s<> 


011662 


100404 




295 / 


0U664 


032711 


040000 


2^58 


0116 70 


001025 




2959 


011672 


000772 




2960 








z^x 


011674 


032711 


000020 


*:%2 


0U700 


001004 




2% 5 


011702 


0327 U 


040000 


2964 


011706 


001016 




2965 


011710 


000771 




2%c 








2<*>; 


011712 






(P 


0U712 


004737 


005122 


^•^6 


011716 


032711 


000020 


2% 9 


011722 


001402 




29 70 


011724 


000163 


005212 


2971 








29 72 


011730 


004737 


00577* 


297 3 


011734 


102403 




2974 


011736 


004737 


005250 


297*. 


011742 


000401 




2976 








297 7 


011744 


104400 




2978 


0.11746 


104000 




2979 








2980 








2981 


011750 






cn 


011750 


004737 


006100 


cn 


011754 


102401 




2982 


011756 


102002 




298? 


0U760 


104400 




2984 


011762 


0007 72 




298S 


011764 






2986 








298 7 








2988 








2989 


011764 


112737 


000014 


2990 


0117/2 


012702 


012024 


2991 


0117 76 


004737 


006162 


2992 


012002 


005215 




2993 


012004 


004 737 


0057 74 


2994 


012010 


102420 




2995 








2996 


012012 


004737 


006216 


2997 


012016 


004737 


005122 


2998 


012022 


005215 




2999 








3000 


012024 


005765 


000032 


3001 


012030 


100002 




3002 


012032 


000165 


005212 


300 5 








3004 


012036 


004 73 7 


0057 74 


3005 


012042 


10240J 




5000 


012044 


004/3 7 


005250 



v> 
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START OK TESTS 



SEQ 0066 



001126 



1*} 


TSTI1 


(Rl) 




BMI 


?• 




BIT 


*ERR,(tU) 




BNF. 


99$ 




BR 


1$ 


2$: 


BIT 


*SDWN,(R1) 




BNE 


3$ 




BIT 


0ERR,(R1) 




BNE 


99$ 




BR 


2% 


3$: 








JSR 


PC.TIMON 


4$: 


BIT 


OSDWN.(Rl) 




BEQ 


5$ 




JMP 


TIMERCR3) 


5$: 


JSR 


PC.WAITRDY 




BVS 


99$ 




JSR 


PC.TIMOK 




BR 


100$ 


99$ j 


HLT 




100$: 


SCOPE 




jREWIND DRIVE 




A: 








JSR 


PC, .REWIND 




BVS 


99$ 




BVC 


100$ 


99$: 


HLT 






BR 


A 


100$; 






»TEST 


014 TURN 


AROUND DELAY (F ORWARD 


jTHIS 


TEST MEASURE'S TIME *■ ROM 'GO'-l 


TST014 


j MOVB 


#l4,MtfTSTNUM 




MOV 


02$, R2 




JSR 


PC, WRITE 




INC 


(R5) 




JSR 


PC.WAITROY 




BVS 


99$ 



j BRANCH WHEN 
iREAOY SETS 



j TURN TIMER ON 
I BRANCH WHEN SWDN 







j(iO TO TIMER 6 RETURN VIA R2 
jWAIT FOR REA[)Y 



j RE WIND SLAVE 

jBRANCH IF ERROR ON REWIND 



1$ 



2$ 



5$ 



JSR PC.WFVRD 

JSR PC.TIMON 

INC ( RS ) 

TST TCIR5) 

BPl 3$ 

JMP TIMERlR*) 

JSR PC.WAURDi 

HVS 99$ 

JSR PC # tIMOK 



REVERSE ) 

(READ REVERSE) TO ' '.CD.'-O 

I SET RETURN PC EROM TIMER 
t WRITE A RECORD 
iSET 'GO' BIT 



I RE AD THE RECORD (REVERSE) 
; TURN TIMER ON 
iSET 'GO' BIT 

I WA I T t- OR ' ACCl ' - O 

I til) TO TIMER 6 RETURN VIA R2 



[-( 



C/ltM.O 


IN03 Tt i6 ru/7 


D> 1 


CZTEEE . 


Pll 06 -APR 84 


11:05 


300 ; 


012050 


000401 




3003 








3009 


012052 


104400 




3010 


012054 


104000 




3011 








301? 








3013 








3014 


012056 


112737 


000015 


30 IS 


012064 


012702 


01213? 


3016 


012070 


004737 


006162 


3017 


012074 


005?15 




3016 


012076 


004 73 7 


005774 


301? 


012102 


102426 




3020 


012104 


00473 7 


006216 


30? 1 


012110 


005215 




30?? 








30? 3 


012112 


004737 


005774 


30?4 


012116 


102420 




3025 








3026 


012120 


00473? 


006200 


30? 7 


012124 


004737 


005122 


30?8 


012130 


005215 




30?9 








3030 


012132 


005765 


000032 


3031 


012136 


100002 




303? 


012140 


000163 


00521? 


3033 








3034 


012144 


004737 


0057 74 


303b 


012150 


102403 




3036 


012152 


004 73 7 


005250 


303 7 


012156 


000401 




3038 








3039 


012160 


104400 




3040 


012162 


104000 




3041 








304? 








304 3 


012164 


11273/ 


000016 


3044 


01217? 


1 2702 


012230 


3045 


012U6 


004737 


006162 


3046 


012202 


005215 




304 7 


012204 


004737 


005774 


3048 


012210 


102421 




3049 


01221? 


004 73 7 


005502 


3050 


012216 


004 737 


006?16 


30b 1 


012222 


004 73 7 


005122 


30b? 


012226 


005?15 




3053 








3054 


012230 


005710 




30bb 


01223? 


001002 




3056 


0122 34 


000163 


0052 i 2 


305 i 








3058 


012240 


004 / ? ; 


005 7 74 


3059 


012244 


102403 




3060 


012246 


00473 7 


005?50 


30*: 1 


012252 


000401 




306? 
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START 0^ TESTS 



11:07 PAGF. 25 24 



SEQ 0069 



99$: 
100$ i 



BR 

HLT 

SCOPE 



100$ 



001126 



j TEST 015- TURN AROUND DELAY (REVERSE FORWARD) 

j THIS TEST MEASURES TIME FROM 'GO'-l (READ) TO ' ACCl 



TST015: MOVB 
MOV 
JSR 
INC 
JSR 
BVS 
JSR 
INC 

JSR 
BVS 



1$: 



3$: 



99$: 

100$: 



JSR 
JSR 

INC 

TST 
BPL 
JMP 

JSR 
BVS 
JSR 
BR 

Hi. T 
SCOPf 



O15,Q0TSTNUM 

02$, R2 

PC, WRITE 

(R5) 

PC.WAITRDY 

99$ 

PC.REVRD 

(R5) 

PC.WAITRDY 
99$ 

PC, RE AD 

PC.TIMON 

(R5) 

TC(R5) 
3$ 

TIMERCR3) 

PC.WAITRQr 
99$ 

PC.TIMOK 
100$ 



0. 



001126 



; TEST 016 GAP SIZE I STOP HAi.f ) 



TST016: MOVB 
MOV 
JSR 
INC 
JSR 
Bvs 
JSR 
JSR 
J'.H 
INC 



IS: 



2$: 



T l ,T 

BNt 

JMP 

J5H 

HV ■■ 
J'iH 
BR 



016.3CTSTNUM 

01I.R2 

PC,WRIT| 

( R5 ) 

PC,WAITROi 

99$ 

PC. DM A » 

PC, Re VRO 

PC, MMON 
i w. * 

i WO i 

2$ 

MM* R< R3 ) 

PC.WAITPi)! 
sw$ 

PC. MMUK 

100$ 



{SET RETURN PC FROM TIMER 
, WRITE A RECORD 
jSET 'GO' BIT 
jWAIT FOR READ* 

j READ A RECORD IN THE 
jSET 'GO' BIT 



{READ RECORD FORWARD 
j TURN TIMER ON 
{SET 'GO' BIT 

{WAIT FOR 'ACCl ' - 

iGO TU TIMER 6 RETURN VIA R2 



iSM RETURN PC FROM TIMER 
i WRITE A RtCORD 
{SET -GO* BIT 



iDEL.Al 350 MS 
{READ RFVFRSF RECORD 
5 TURN TIMER ON 
{SET 'GO BIT 

{WAIT FOR FRAME CO! 'NT * 

{GO TO TIMtR f. HP Tl.fHN VIA R? 

iWrttT M)R RFAO> BIT TO SE T 

{CHECK TIME 



lvuuo 


TN03-TL 


16 TU/7 


DF 1 


MACY11 30( 1046) 06 APR 


1- b 

-84 11:0? PAGE 25 


-25 


CZTF.EF., 


Pll 06-APR-84 


11:05 


START 


OF TESTS 






506 J 


012254 


104400 




99i; 


HLT 






3064 


012256 


104000 




100$; 


SCOPE 






3065 
















3066 








{TEST 


017-GAP SIZE CSTART HALF) 




3067 


012260 


112737 


000017 


001126 TST017: MOVB 


*17,Q0TSTNUM 




3068 


012266 


012702 


012340 




MOV 


01$, R2 




3069 


012272 


004737 


006162 




J5R 


PC, WRITE 




30. '0 


012276 


005215 






INC 


(R5) 




3071 


012300 


004 737 


005774 




JSR 


PC.WAITRDY 




3072 


012304 


102427 






BVS 


99$ 




3073 


012306 


004737 


006216 




JSR 


PC.REVRO 




3074 


012312 


005215 






INC 


(R5) 




3075 


012314 


004737 


005 774 




JSR 


PC.WAITRDY 




3076 


012320 


102421 






BVS 


99$ 




3077 


012322 


004737 


005502 




JSR 


PC, DELAY 




3078 


012326 


004737 


006200 




JSR 


PC, RE AD 




3079 


012332 


004737 


005122 




JSR 


PC.TIMON 




3080 


012336 


005215 






INC 


(R5) 




3081 
















3082 


012340 


005710 




It: 


TST 


(RO) 




3083 


012342 


001C02 






BNE 


2% 




3084 


012344 


000163 


005212 




JMP 


TIMERCR3) 




3085 
















3086 


012350 


004737 


005774 


2$: 


JSR 


PC.WAITRDY 




3087 


012354 


102403 






BVS 


99$ 




3088 


012356 


004737 


005250 




JSR 


PC.TIMOK 




3089 


012362 


000401 






BR 


100$ 




3090 
















3091 


012364 


104400 




99$: 


HLT 






3092 


012366 


104000 




100$: 


SCOPE 






3093 
















3094 








;TEST 


020- GAP 


SIZE CINTERRECORD) 




3095 








iTHIS 


TEST MEASURES TIME FROM 'GO* 


-1 


3096 


0123/0 


112737 


000020 


001126 TST020: MOVB 


020,8*TSTNUM 




309 7 


012376 


012702 


012460 




MOV 


• H.R2 




3098 


012402 


004737 


006162 




JSR 


PC, WRITE 




3099 


012406 


005215 






INC 


(R5) 




3100 


012410 


004737 


005774 




JSR 


PC.WAITRDY 




3101 


012414 


102433 






BVS 


99$ 




3102 


012416 


004737 


006162 




JSR 


PC, WRITE 




3103 


012422 


005215 






TNC 


CR5) 




3104 


012424 


004 73 7 


005774 




JSR 


PC.WATTRDi 




3105 


012430 


102425 






BVS 


vs$ 




3106 


012432 


004737 


006216 




JSR 


PC.REVRD 




3107 


012436 


005215 






INC 


CR5) 




3108 


012440 


004737 


0057 74 




JSR 


PC.WAITRDY 




3109 


012444 


102417 






BVS 


«^$ 




3110 


012446 


004737 


006216 




JSR 


PC.REVRD 




3111 


012452 


004737 


005122 




JSR 


PC, TIMQN 




3112 


012456 


005215 






TNC 


(R5) 




3113 
















3114 


012460 


005 710 




U: 


TST 


CROY 




3115 


012462 


001002 






BNt 


2$ 




3116 
311^ 
3UB 


012464 


000163 


005212 




JMP 


TIMERIR3) 




012470 


004737 


005774 


a*; 


JSR 


PC.WAITRDt 





SEQ 00 70 



{SET RETURN PC FROM TIMER 
iWRITE A RECORD 
jSET 'GO' BIT 
{WAIT FOR READY 

{READ REVERSE THE RECORD 

{SET 'GO' BIT 

{WAIT FOR READY 

{BRANCH ON ERROR 

{WAIT FOR TAPE MOTION TO STOP 

{READ RECORD 

{TURN TIMER ON 

{SET 'GO* BIT 

{WAIT FOR FRAME COUNT > 

{GO TO TIMER 6 RETURN VIA R2 

{WAIT FOR READY 

{CHECK TIME 



TO 'FC REG' >0. 

{SET RETURN PC FROM TIMER 
{WRITE A RECORD 
{SET *G0* BIT 
{WAIT FOR READY 

{WRITE SECOND RECORD 
;SET 'GO' BIT 

;WAIT FOR READY 

{READ REVERSE SECOND RECORD 
jSET 'GO' BIT 
jUAIT FOR READY 



{READ REVERSE FIRST 
j TURN TIMER ON 
{SET "GO* BIT 



RECORD 



{WAIT FOR FRAME COUNT ^ 
{GO TO TIMER f. RETURN VIA R2 
{WAIT FQR READY 



l> 



C/TLEKO TM03-U 16/TU7 7 DM 
CZTl.EE.P11 06-APR-84 11;05 



3119 
3120 

3121 
3122 

3123 
3124 
3125 
3126 
3127 

3i.:a 

3129 
3130 

3151 

3132 

3135 
3154 
3135 

3156 
3137 
3138 
3139 
3140 
CI) 
3141 
314? 
3143 
3144 
3145 
314o 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 

3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
5163 
3 1 64 
3165 
3166 
316 7 
3168 
5169 
3 1 70 

3i n 

i < ; . 
. * * > t 

317? 



012474 
012476 
012502 

012504 
01250b 



012510 
012516 
012522 
012526 
012530 
012534 
012540 
012544 
012546 
012552 
012554 
012560 
012566 
012570 

012572 
012576 

012602 
012604 
012610 
012612 
012614 

012616 
012622 

012626 
012632 

0126 34 

012640 
012642 
012646 
012652 

012654 
012660 

012662 



102405 
004737 
000401 

104400 
104000 



112737 
012702 
004737 
102530 
005037 
012700 
004737 
005215 
004 737 
102516 
004 73 7 
06375? 
005300 
001363 

012700 

004 73 7 
005215 
004 73 7 
1024 7 7 
005300 
001370 

012/00 

012701 
004 75 7 
005215 

004 75/ 
102465 

004 7 37 
004 73^ 
005215 

005 765 
00 1 002 
000163 



005250 



000021 
012654 
006100 

001120 
00002 1 
006162 

0057 74 

005532 
001014 



00002 1 
006216 

005774 



000020 
00 \ 060 
006200 



005774 

006200 
005122 



000006 
005212 



MACY11 30(1046) 06 APR 
START OF TESTS 


-84 H:0 


BVS 
JSR 
BR 


99$ 

PC.TIMOK 

100$ 


99$; HLT 
100$: SCOPE 
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SLQ 0071 



001120 



TEST 021- GAP CONSISTANCY 

THIS TEST MEASURES TIME FROM 'GO'-l TO ' FC REG' > 0. 

THE TEST REWINOS THE TAPE, WRITES 17 RECORDS WITH A DELAY FROM 1-16 MS 
BETWEEN EACH WRITE COMMAND. AFTER THE 17, RECORDS ARE WRITTTEN THE 
PROGRAM READ REVERSES 16 RECORDS. AT THIS POINT THE TAPE IS STOPPED BE 
TWEEN THE FIRST AND SECOND RECORD. A READ COMMAND IS EXECUTED TO READ 
THE 16 RECORDS WITH THE TIME BETEWEN GO-1 TO FC > STORED IN 'GAPTBL' 
FOR EACH RECORD READ. AFTER 16 RECORDS HAVE BEEN READ THE TIME IS VER- 
IFIED FOR EACH READ. AFTER ALL RECORD TIMES ARE VERIFIED THEr ARE AVER 
AGED AND PLACED IN THE 'ATIMTBL' (BY SCOPE), THE ABOVE PROCESS IS RE- 
PEATED FOR EACH ITERATION. 



001126 TST021: 



1$: 



2$j 



3 5 



4$ 



MOVB 


02LB0TSTNUM 


MOV 


*4$,R2 


JSR 


PC. REWIND 


BVS 


99$ 


CLR 


DELTIM 


MOV 


♦17. ,R0 


JSR 


PC, WRITE 


INC 


(R5) 


JSR 


PCWAITRDY 


BVS 


94$ 


JSR 


PCDELAYV 


ADD 


GAPDEL, DELTIM 


DEC 


RO 


BNF. 


1$ 


MOV 


017, ,R0 


JSR 


PC.REVRD 


INC 


(R5) 


JSR 


PC.WAITRDU 


BVS 


99$ 


DEC 


RO 


BNE 


2$ 


MOV 


016, ,R0 


MOV 


OGAPTBL.Rl 


JSR 


PC, RE AD 


INC 


(R5) 


JSR 


PC.WAITRDY 


BVS 


99 $ 


JSR 


PC,Rf AD 


JSR 


PC.UMON 


INC 


(R5) 


TST 


> CCR5) 


BNE 


5$ 


JMP 


UMF.RCR3) 



;SET RETURN PC FROM TIMER 
j REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
{CLEAR VARIABLE DELAY TIME 
j SET * OF RECORDS TO WRITE 
{WRITE 17, RECORDS 
;SET 'GO' BIT 
,-WAIT FOR READY 

{DELAY BEFORE WRITING NEXT REC , 
;ADD IMS TO DELAi TIME 
{DECREMENT RECORDS WRITTEN COUNT 



READ 



{SET i> OF RECS. TO REVERSE 
{REVERSE READ 17. RECORDS 
{SET 'GO' BIT 

{WAIT FOR READY 

{DECREMENT RECORD COUNT 



{SET 9 OF RECORDS TO READ 
{SET PTR TO GAP TABLE FOR TEST 
{READ A RECORD 
{SET 'GO* BIT 

{WAIT FOR READ* 

{READ NEXT RECORD 
{ TURN TIMER UN 
{SET 'GO' BIT 

{WAIT FOR KRAME COUNT " 

{GO TO TIMER 6 RETURN VIA R2 



c<nt i\:o 


TM03-rt.u>- iu/: 


DF T 


CZTEEE. 


Pll 06-APR-84 


11:05 


3 1 :a 








3K5 


012666 


004 737 


005774 


3 Kb 


012672 


102446 




31?: 


012674 


010421 




3178 


012676 


005300 




3 1 *9 


012?00 


001355 




3180 








3181 


012702 


105037 


001124 


318? 


012706 


012700 


000020 


3183 


012712 


0127U 


001060 


3184 








3185 


012716 


012104 




318o 


012 720 


004737 


005360 


318 7 


012724 


105237 


001124 


3188 


012730 


122737 


000020 


3189 


01273b 


001367 




3190 








3191 


012740 


012700 


000020 


3192 


012744 


012701 


001060 


3193 


012750 


005002 




3194 


012752 


005003 




3195 


012754 


062102 




3196 


012756 


005503 




3197 


012760 


005300 




3198 


012762 


00137* 




3199 


012764 


0127C0 


000004 


3200 


012770 


006203 




3201 


012772 


006002 




320,: 


012774 


005300 




3203 


012776 


001374 




3204 


013000 


010204 




3205 


013002 


004 73 7 


005250 


3206 


CI 3006 


000401 




3207 








3208 


013010 


104400 




3209 


013012 


104000 




3210 








3211 








3212 








321 3 








3214 








32 lf> 


013014 


112737 


000022 


3216 


013022 


012702 


013102 


3217 


013026 


004 73 7 


006100 


( 1 ) 


013032 


102442 




3218 


013034 


05276^ 


001700 


3219 


013042 


C04337 


006316 


3220 


013046 


0175 72 




3221 


013050 


171600 




3222 


013052 


163400 




322? 


013054 


000060 




3224 
3225 

3226 


013056 


005215 




1 3060 


022710 


16 3400 




013064 


001004 




3228 


013066 


032711 


040000 



MAO 11 



001124 



30C1046) 06 APR 


-84 11:07 


START 


OF TESTS 




5$: 


JSR 


PC.WAITRDY 




BVS 


99$ 




MOV 


R4,(R1)» 




OF.C 


RO 




BNE 


3$ 




CLRB 


S#GAP 




MOV 


#16, ,R0 




MOV 


#GAPTBL,R1 


6$: 


MOV 


(Rl)*.R4 




JSR 


PC.GAPOK 




INCB 


s#gap 




CMPB 


#16. ,S)#GAP 




BNE 


6$ 




MOV 


#16. ,R0 




MOV 


OGAPTBL.Rl 




CLR 


R2 




CLR 


R3 


7*: 


ADD 


(R1)*,R2 




ADC 


R3 




Dec 


RO 




BNE 


7$ 




MOV 


#4,R0 


8$: 


ASR 


R3 




ROR 


R2 




DEC 


RO 




BNE 


6$ 




MOV 


R2.R4 




JSR 


PC.TIMOK 




BP 


100$ 


99$ : 


HLT 




100$: 


SCOPE. 





H6 
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SEQ 00 72 



j WAIT FOR READY 

j STORE TIME IN GAPTBL 
{DECREMENT # OF RECORDS READ 



;SET GAP # 



jGET GAP TICK COUNT 

{CHECK TIME 

{INCREMENT GAP # 

{BRANCH IF ALL GAPS NOT CHECKED 



{SETUP TO AVERAGE GAP ^IZES 
{SET PTR TO TABLE 
{CLEAR 'SUM' RCViV/ii- 1 :,", 

{ADD ALL GAP SIZES TOGETHER 



{NOW DIVIDE B> 16. 

{BY SHIFTING 4 PLACES RIGHT 



{MOVE AVERAGED TIMES TO R4 
{CHECK AVERAGED TIMES 



001126 



000032 



{TEST 022 DATA TIME C800BPI) 

{THIS TEST MEASURES THE TIME ^ ROM FC REG > -6400 TO *RDt* 



1. 



TST022: 


MOVB 


#022,S#TSTNUM 




MOV 


*3$,R2 




JSR 


PC. .REWIND 




BVS 


99$ 




BIS 


#NORMll. TCCR5) 




JSR 


H3.TMCMD 




. WORD 


WTBuF 




, UORD 


-3200. 




.WORD 


6400. 




.WORD 


UF'UD 




INC 


CR51 


1$: 


CMP 


it 6400. , (RO) 




BNt 


2$ 




BIT 


#ERR,(R1 ) 



{SET RETURN PC FROM TIMER 

I REWIND SI AVE 

{BRANCH IF ERROR ON REWIND 

jSFT 800 BPI 

{WRITE 3200. WORD RECORD 



{SET *G0' BIT 

{WAIT VQH WRITING TO START 

{MONITOR ERROR BIT 



C/TEEEO TM03 
CZTEEE.P11 



Tkl6'TU7 7 OFT 
06-APR-84 11:05 



MACY11 30(1046) 06 -APR -84 11:07 

START OF TESTS 



lb 
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SEQ 0073 



3229 

3230 
5251 
5252 

en 

5233 
3234 
3233 
323b 
3237 
3238 
3239 
3240 
3241 

3242 
3243 
3244 
324 S 
3246 
324 7 
5248 
3249 
3250 
3251 
3252 
3253 

(1) 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
5261 
3262 
3263 
3264 
3265 
3266 
326/ 
3268 
3269 

(1) 
32 70 
3271 
32 72 
3tf75 
32 74 
3275 
32 76 
32 7 7 
32 78 
32 79 
3280 
3281 



013072 
013074 

013076 

0130 76 
013102 
013104 
013106 

013112 

013116 
013120 
013122 
013124 
013130 
013132 
013136 

013140 
013142 



013144 
013152 
013156 
013162 
013164 
013172 
013200 
013204 
013206 
013210 
013212 
013214 

013216 
013222 

013224 
013^30 
013232 

013234 
013234 
013240 
013242 
013244 

015250 

013252 
013254 
013260 
013262 
013266 



001022 
000771 



004 73 7 
105711 
100402 
000163 

012700 

006204 
005300 
001375 
004 7 37 
102403 
004 737 
000401 

104400 
104000 



112737 
012702 
004737 
102442 
042765 
052765 
004 337 
017572 
171600 
163400 
000060 
005215 

022 710 

001004 
052711 
001017 
000771 



004 73 7 
105711 
100402 
000163 

006204 
006204 
004 73 7 
102405 
004 / 3 7 
000401 



005122 

005212 
000003 

005774 
005250 



000023 
013240 
006100 

003700 
002300 
006316 



001126 



000032 
000032 



163400 
040000 

005122 
005212 

005 7 74 
005250 





8NE 


99$ 




BR 


1$ 


2$: 








JSR 


PC.TIMON 


3$: 


TSTB 


(Rl) 




BMI 


4$ 




JMP 


TIMERCR3) 


4$: 


MOV 


43, RO 


5$: 


ASR 


R4 




DEC 


RO 




BNfc 


5$ 




JSR 


PC.WAITRDY 




BVS 


99$ 




JSR 


PC.TIMOK 




BR 


100$ 


99$: 


HLT 




100$: 


SCOPE 




:TEST 


023-DATA 


TIME (1600BPI) 


{THIS 


TEST MEASURES THE TIME F 


TST022 


>: MOVB 


0O23,Q0TSTNUM 




MOV 


03$, R2 




JSR 


PC,. RE WIND 




BVS 


99$ 




BIC 


03700, TCCR5) 




BIS 


0PE16OO, TCCR5) 




JSR 


R3.TMCMD 




.UORD 


WTBUF 




.WORD 


-3200, 




.WORD 


-6400. 




.WORD 


urwo 




INC 


(R5) 


1*: 


CMP 


0-6400. ,CRO) 




BNE 


2$ 




BIT 


0ERR.CR1) 




BNE 


99$ 




BR 


1$ 


2$: 








JSR 


PC, IIMQN 


3$: 


TSTB 


(Rl) 




RM1 


4$ 




JMP 


TIMkR(R3) 


4$: 


ASR 


R4 




ASR 


R4 




JSR 


PCWAITRDY 




BVS 


99$ 




J'M 


PC, I [MUK 




BP 


100$ 



j TURN TIMEfJ ON 

jBRANCH WHEN REAOr SETS 

{GO TO TIMER £ RETURN VIA R2 
{SET SHIFT COUNT 



{CHECK TIME 



>-640O TO 'RDY 



1. 



{SET RETURN PC FROM TIMER 

{REWIND SLAVE 

{BRANCH IF ERROR ON REWIND 

iCLFAR CURRENT DENSITY 

{SET 1600 BPI 

{WRITE 3200. WORD RECORD 



SET 'GO' BIT 

BRANCH WHEN WRITING STARTS 

MONITOR ERROR BIT 



{TURN TIMER ON 

{BRANCH WHFN READY SETS 

{GO TO TIMER £ RFTuRN VIA R£ 

{DIVIDE TIMk BY 4 

iCHtCK TIME 



01327Q 104400 



r nt 



HI. I 



CZTt.F.r.O 1M03 
CZTEEF.Plt 



H" 16 Ri.V i)fl 
06 -APR 84 11:05 



3282 
3283 
3284 
3285 

3286 
328 ? 
3288 
(1) 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3293 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3 320 
3321 
3322 
3323 
3324 
3325 
3326 
^32 7 
3328 
3329 
3330 
3331 
3332 
333 5 
3 334 
3335 
3336 



013272 104000 



013274 
013302 
013306 
013312 
013314 
013320 
013324 
013326 
013332 
013334 
013342 
013346 
013350 
013352 
013354 
013356 
013362 

013364 

013366 
013370 

013374 

013400 
013402 
013406 

013410 
013412 



013414 

013422 
013426 
013432 
0134 34 
013440 
013442 
013446 
013450 
013452 
013454 
013456 
013462 

0134C4 

013466 
0134 70 

0134 74 
013500 



112737 
012 702 
004 737 
102436 
004737 
004737 
005215 
004 73/ 
102426 
012737 
004 337 
000000 
000000 
000000 
000024 
004737 
005215 

105711 
100402 
000163 

004 737 

102403 
004 737 
000401 

104400 
104000 



112737 
012702 
004 737 
005215 
00473? 
102423 
004 33 7 
000000 
000000 
000000 
000026 
004 73 7 
005215 

105711 

100402 
000163 

004 / 3 .' 
10240 5 



000024 
013364 
006100 

005736 
006162 

0057 74 

013342 
006316 



005122 

005212 

0057 74 

005250 



000025 
013464 
006162 

0057 74 
006316 



005122 

005212 
0057 74 



NACY11 30(1046) 06 APR-84 11:07 
START OF* TESTS 
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SEQ 0074 



100$: 



scope: 



001126 



I TEST 024 -ERASE 

j THIS TEST MEASURES TIME FROM 



001002 



TST024: M0V8 
MOV 
JSR 
BVS 
JSR 
JSR 
INC 
JSR 
BVS 
MOV 

1$: JSR 

.WORD 

.WORD 

.WORD 

.WORO 

JSR 

INC 



2$: 



3$: 



99$; 

100$: 



TSTB 

BMI 

JMP 

JSR 
BVS 
JSR 
BR 

HLT 

SCOPE 



424,3#TSTNUM 

02$, R2 

PC,. REWIND 

99$ 

PC.PHINIT 

PC, WRITE 

(R5) 

PC,WAITRD> 

99$ 

n$,30SCPADR 

R3.SWTMCMD 







ERASE 

PC.TIMON 

(R5) 

(Rl) 

3$ 

TIMERCR3) 

PC.WAITRDf 
99$ 

PC.TIMOK 
100$ 



GO* *1 TO 'RDY' -1. 



SET RETURN PC TROM TIMER 

REWIND SLAVE 

BRANCH IF ERROR ON REWIND 
l SET NRZ 
{WRITE A RECORD 
sSET 'GO' BIT 



; TURN TIMER ON 
;SF.T 'GO' BIT 

{BRANCH WHFN READf SETS 

{GO TO TIMER 6 RETURN VIA R2 



001126 



{TEST 025 TAPE MARK 

j THIS TEST MEASURES TIME 



TST025: MOVB 
MOV 
JSR 
INC 
JSR 
BVS 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
JSR 
INC 



10 



2$ 



TST3 

BMI 
JMP 

JSR 

BVS 



025,a*TSTNUM 
41$, R2 

pc, write; 

(R5) 

PC.WAITRDf 

99$ 

f -f3,a^TMCMD 







Wf- Mt< 

PC. TXMON 

(R?i ) 

(m ) 

2$ 
UMERCR3) 

PC.WAITRDi 
99$ 



f>ROM *G0' -'I TO 'RDi' *1. 



SET RETURN PC f-*ROM TIMER 
WRITE A RFCORD 
SET 'GO' BIT 



{ TURN 1 IMER ON 
{SET 'GO' BIT 

{BRANCH WHFN READ* SETS 

{GO TO TIMER £ RETURN VIA R2 



C/UH.O 


IM03 It lt> Tu.'.* 


Of T 


MACY11 


30(1046) 


06 


APR 


-84 11:07 


CZlhEE. 


Pll 06 APR 84 


11:05 




START 


OF TES 


TS 




335 r 


01 5302 


004 73 7 


005250 








JSR 




PC.TIMOK 


3338 


013506 


000401 










BR 




100$ 


3339 




















3340 


013510 


104400 






99$: 




HLT 






334 1 


01351.:? 








100$ { 










U") 


013312 


004 73/ 


006100 








JSR 




PC, .REWIND 


v n 


01351t> 


10^7 74 










BVS 




99$ 


33*12 


013520 


104000 










SCOPE 




3343 





















l<6 

PAGt 25-30 



StQ 0075 



tREWlND 'il.AVt. 

{BRANCH IF ERROR ON REWIND 



C/TtEEO H103TE16'TU7 7 DP T 
CZTEEE.P11 06 -APR -84 11:05 



MACYH 30(1046) 
START OP* 



06-APR-84 
TESTS 



11:0/ 



PAGE 25-31 



SfcQ 00/6 



3345 

3346 
334? 
3348 
3349 

3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
336c? 
3363 
336-; 
3*65 
3366 
336'-' 
33«J3 
33o9 
33~<0 
33/1 
3372 
3373 
3374 
3375 
CD 
(1) 
(i) 

in 

Cl) 
CI) 
CD 

3376 
33/7 
33 78 

3 3/9 
3380 
3381 
3 382 
3383 



013522 

013530 
013532 
013536 
013540 
013544 
013550 
013552 



013554 
013560 
013564 

013572 
013574 
013600 
013604 
013610 
013616 
013620 

013624 
013630 
013632 
013636 
013642 
013646 
013652 
013656 
013662 
013666 
013672 
0136 74 
013676 
013700 
013702 
013704 
013706 
013/10 
013/14 
013716 
013/24 
013726 
015732 
013/34 
013736 



032777 

001011 
005737 
001006 
012/00 
000004 
005300 
001374 



105237 
005237 
122737 
001402 
000137 
105037 
105237 
122737 
001402 
000137 

105737 
001004 
000004 

000137 
105237 
000004 
113702 
004737 
000004 
013700 
001405 
000005 
004710 
000240 
000240 
00024 
000240 
00573 7 
001004 
032777 
001402 
00013 7 
000000 
000005 
000137 



002000 

006564 

000012 
001402 



001005 
001006 
000010 

007634 
001005 
001004 
000010 

007634 

001132 

015236 
006466 
001134 
014467 
001134 
003224 
001402 
000042 



006564 
000100 
007606 

006466 



165250 



oswio.aswR 

2$ 

CHNPLG 



FINISrij BIT 
BNE 
TST 
BNE 2$ 
MOV 010. t R0 

1$: TYPE.CRLF 
DEC RO 
BNE 1$ 



{DO NOT SPACE PAPER 

j If USER SELECTED NO OUTPUT 

}0R IF IN CHAIN MODE 

{SET LINE FEED COUNT 



001005 



001004 



2$ 



3* 



END: 



1$ 



INCB S4SLVNUM 

INC fttfSLVPTR 

CMPB 48. .aOSLVNUM 

BEQ 3$ 

JMP a*BEGIN 

CLRB SOSLVNUM 

INCB aODRVNUM 

CMPB $8.,atfDRVNUM 

BEQ END 

JMP aoetGIN 

TSTB aOUNTFND 

BNE 1$ 
TYPE.E.UNIT 

JMP aOINIT 

INCB a^PSCNT 
TYPE>M.EOP 



SET NEXT SLAVE i> 

AND ITS POINTER 

BRANCH IF LAST SLAVE ( 7 ) 

BEGIN TEST ON NEXT SLAVE 
SET SLAVE 00 
AND INCREMENT DRIVE it 
AND CHECK IF LAST DRIVE 



jBRANCH IF A UNIT WAS FOUND 



165054 





MOVB 


3$PSCNT,R2 




JSR 


PC.TYPOCT 




TYPE.CRLF 




MOV 


aO42.R0 




BEQ 


HERE 




RESET 




$ENDADj 


JSR 
NOP 
NOP 
NOP 


PC.(RO) 


HERE: 


NOP 






1ST 


CHNM.G 




BNE 


1$ 




BIT 


*SU06,aSWR 




BEQ 


2$ 


1$: 


.JMP 


80RSTRT 


2*: 


HAl.l 
RE'itT 






JMP 


a#INIT 



; INCREMENT PASS COUNT 

iGET PASSCOUNT 
{AND T'PE IT 

;GET AC 111 RETURN ADDRESS 
: BRANCH IF NOT ACT 11 



jBRANCH IF CHAIN MODE 

{BRANCH IK NOT CONTINOUS LOOP 
{RESTART 

{RESTART 



CZTfcEEO TM03-TE16- TU.V DFT 
CZTEEE.Pll 06-APR-84 11:05 



3385 
338b 
338/ 
3388 
3389 
3390 
3391 
339? 
3393 
3394 

(1) 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
34,-70 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
34 30 
54 31 

CI) 
34 32 
34 33 
34 34 
34 35 
34 3 b 
34 37 
3438 



013750 
013756 
013762 
013766 
013770 
013776 
014004 
014010 
014012 
014014 
014016 
014020 

014022 
014030 
014032 
014036 

014040 
014044 
01405C 
014052 

014056 
014062 
014064 
014066 
014070 
014074 
014100 

014102 
014104 



014106 
014114 
014120 

014124 
014126 
014134 
014142 
014146 
014150 
01415? 
014154 



112737 

012702 
004737 
102445 
052765 
052765 
004337 
017572 
177777 
063440 
000070 
005215 

032765 
001024 

022710 
101371 

004 73 ? 
023710 

103402 
000163 

012700 

006204 
005300 
001375 
004 737 
004737 
000401 

104400 
104000 



112737 
'U270? 

00473" 7 

lcr.n/i 

052765 
052765 
004 53/ 
01757? 
1777// 
0/640C 
000070 



000026 

014044 
006100 

001700 

000010 
006316 



075027 
001440 

005122 
014014 

005212 

000005 



005736 
005250 



000027 
014252 
006100 

001700 

000010 
006316 



MACYH 30(1046) 06-APR-84 
START OF TESTS 



Mb 

11:07 PAGE 25-32 



SbQ 00 77 



013742 012737 013750 001002 



001126 



Ov.0032 
000010 



001126 



00003? 
000010 



{SKEW TAPE TIMING TESTS 

5 THE FOLLOWING TESTS REQUIRE A SPECIALLY 

SKEWTST:MOV 4T5T026,a#SCPADR 

TEST 026- SKEW TAPE SPEED TEST -FORWARD 
THIS TEST READS 32" OF TAPE (26400.-800 
DIVIDES TIME BY 32. TO GET 1IME TO READ 



WRITTEN 800 BPI SKEW TAPE 
I SET SCOPE POINTER 



TST026; MOVB 
MOV 
JSR 
BVS 
BIS 
BIS 
JSR 
.WORD 
.WORD 

10$ j .WORD 
.WORD 
INC 



000014 1$: 



2$: 



3$: 
4$: 



99 $ : 
100$: 



BIT 
BNE 
CMP 
BHI 

JSH 
CMP 
B1..0 
JMP 

MOV 
ASR 
DEC 
BNE 
JSR 
JSR 
BR 

HLT 

SCOPE 



026.SWTSTNUM 

02$,R2 

PC, .REWIND 

99$ 

ttNORMll.TCCRS) 

0BAI.CS2CR5) 

R3.34TMCMD 

RDBUF 

-I. 

26400. 

RDFWD 

CR5) 

0HRDERR.ERCR5) 

99$ 

4800. ,(R0) 

1$ 

PC.TIMJN 

smo$.(?o) 

3$ 

TIMERCR3) 

45. RO 

R4 

RO 

4$ 

PC.RHINIT 

PC, UMOK 
100$ 



- 25600. FRAMES), THEN 
1" (800. FRAMES) OF TAPE. 

{SET RETURN PC FROM TIMER 
REWIND SLAVE 

BRANCH IF ERROR ON REWIND 
SET 800 BPI 

INHIBIT BUS ADDRESS INCREMENT 
READ 32" OF TAPE -FORWARD 



{FRAME COUNT 

{SET 'GO' BIT 

{BRANCH IF ANY HARD ERROR BIT SETS 

5 WAIT FOR FIRST 800 FRAMES 
;T0 BE READ 

{1URN TIMER ON 

;WAIT FOR READING TO FINISH 

;G0 TO TIMER £ RETURN VIA R2 
{DIVIDE TIME BY 32. 



jINIT DRIVE 
{CHECK TIME 



TEST 027 SKEW TAPE SPEED TEST -REVERSE 

THIS TEST HEADS FORWARD 40" (32000. FRAMES) OF TAPE 

32" (26400. -800. - 25600. FRAMES) Of- TAPE. THE TIME 



32. TO 
TST027: 



THEN READS REVERSE 
IS THEN DIVIDED BY 



10$: 



GET 

MOVH 

MOV 

JSR 

BVS 

BIS 

BIS 

JSR 

.WORD 

.WOHD 

.WORD 

.WORD 



TIME TO 



READ \- (800. FRAMES) Of TAPE. 
aOTSTNUM 



*73$. R2 

PC, .REWIND 

99$ 

4N0RM11. TC(R5) 

$GAI,CS2(R5) 

RS.&WTMCMD 
RDBUF 

■1. 
52000 , 

RDFWD 



SET RETURN PC K ROM TIMER 

REWIND SLAVE 

BRANCH IF ERROR ON REWIND 



jREAD FORWARD 32000, FRAMES 



WORD COUNT 
» RAMt COUNT 
READ FORWARD 



Nb 



C/TLELO 


TM03-TE16/TU/7 


DF'T 


MACY11 30C 1046) 06 -APR 


-84 il:07 PAGE. 25-. 


53 


CZTEEE. 


Pll 06 -APR 84 


11:05 


START 


OF TESTS 






5439 


014156 


005215 






INC 


CR5) 


jSET 'GO' BIT 


3440 
















3441 


014160 


032711 


040000 


l$t 


BIT 


ttERR,(Rl) 


{BRANCH IF ERROR BITS SETS 


3442 


014164 


001051 






BNE 


99$ 




344 3 


014166 


023710 


014152 




CMP 


tM10$ ( (R0) 




3444 


014172 


101372 






BHI 


1$ 




3445 
















3446 


0141/4 


004737 


005/36 




JSR 


PC.RHINIT 


jINIT DRIVE 


344 7 


014200 


004737 


005502 




JSR 


PC. DELAY 


{WAIT FOR TAPE MOTION TO "TOP 


3448 


014204 


052765 


000010 


000010 


BIS 


0BAI.CS2CR5) 


{INHIBIT BUS ADDRESS INCRENENT 


3449 


014212 


004 337 


006316 




JSR 


R3,3^TMCMD 


j READ REVERSE 32" OF TAPE 


34 SO 


014216 


017572 






• WORD 


RDBUK 


{READ BUFFER 


3451 


014220 


177777 






.WORD 


-1. 


{WORD COUNT 


345? 


014222 


0o3440 




11$: 


.WORD 


26400. 


{FRAME COUNT 


3453 


014224 


000076 






.WORD 


RDREV 


{READ REVERSE 


3454 
3455 


014226 


005215 






INC 


(R5) 


{SET 'GO' BIT 


3456 


"14230 


032765 


075027 


000014 2$: 


BIT 


^HRDERR,ER(R5) 


;EXIT TEST IF ERROR BIT SETS 


3457 


014236 


001024 






BNE 


99$ 




3458 


014240 


022710 


001440 




CMP 


#800. , (RO) 


;WAIT FOR FIRST 800 FRAMES 


3459 


014244 


101371 






BHI 


2$ 


{TO BE READ 


3460 
















3461 


014246 


004737 


005122 




JSR 


PC»TIMON 


; TURN TIMER ON 


3462 


01425? 


023710 


014222 


3*: 


CMP 


3011$. (RO) 


{WAIT FUR ALi. FRAMES TO BE REA 


3463 


014256 


103402 






BLO 


4$ 




3464 


014260 


000163 


005212 




JMP 


TIMERCR3) 


;G0 TO TIMER £ RETURN VIA R2 


3465 
















3466 


014264 


012700 


000005 


4$; 


MOV 


05, RO 


{DIVIDE TIME BY 32. 


3467 


014270 


006204 




5$: 


ASR 


R4 




3468 


014272 


005300 






DEC 


RO 




3469 


0142 74 


001375 






BNE 


5$ 




3470 


014276 


004 737 


005736 




JSR 


PC.RHINIT 




34 71 


014302 


004737 


005250 




JSR 


PC.TIMOK 




347? 


014306 


000401 






BR 


100$ 




34 /3 
















34 74 


011310 


104400 




995 : 


HLT 






34/5 


014312 






100$; 








CI) 


01431? 


004737 


006100 




JSR 


PC, .REWIND 


{REWIND Sl.AVF 


( 1 ) 


014316 


1027/4 






BVS 


99$ 


{BRANCH IF ERROR ON REWIND 


34 76 


014 320 


104000 






SCOPE 






34/7 
















34/8 
34 /9 


014322 


000137 


013522 




JMP 


SWF IN I SH 




34 MO 

















SEQ 0078 



3481 



p, / 



C/TEEEO TM03TH6< TU/: DM MACU1 

CZTf.E-l-.Pll Ob -APR 84 11 :05 



3483 










3484 










3485. 


014326 


005015 


046524 


031460 




014334 


052055 


030505 


027466 




014342 


052524 


033467 


042040 




014350 


044522 


042526 


04 3040 




01435b 


047125 


052103 


04 7511 




014364 


020116 


044524 


042515 




014372 


020122 


041450 


052132 




014400 


042505 


030105 


051 


3466 


014405 


015 


052012 


050131 




014412 


020105 


041474 


03 7122 




014420 


052040 


020117 


042524 




014426 


046522 


047111 


052101 




014434 


020105 


042522 


050123 




014442 


047117 


042523 


023040 




014450 


057040 


020103 


04 7524 




014456 


051040 


051505 


040524 




014464 


052122 


000 




348? 


014467 


015 


042412 


042116 




014474 


04 7440 


020106 


040520 




014502 


051523 


000040 




3486 


014506 


005015 


040510 


042122 




014514 


040527 


042522 


051440 




014522 


051127 


044440 


020116 




014530 


051525 


006505 


000012 


3489 


014536 


005015 


042522 


047515 




014544 


042526 


052040 


042115 




014552 


020120 


051106 


046517 




014560 


051440 


040514 


042526 




014566 


030040 


020056 


046103 




014574 


040505 


020122 


047514 




014602 


027103 


032040 


027060 




014610 


000 






5490 


014611 


015 


052012 


050131 




014616 


020105 


044506 


051522 




014624 


020124 


042101 


051104 




014632 


051505 


020123 


04311 7 




014640 


041440 


047117 


051124 




014646 


046117 


042514 


020122 




014654 


000040 






3491 


014656 


054524 


042520 


052040 




014664 


030115 


020063 


051104 




014672 


0531 11 


020105 


023443 




014700 


020123 


04 7524 


041040 




014706 


020 10 c 


042524 


052123 




014714 


042105 


02X)72 


040440 




014 722 


046114 


000040 




349? 


014726 


04 7506 


020122 


046524 




014734 


031460 


042040 


044522 




014742 


042526 


040 




3493 


014 745 


060 


020055 


054524 




014752 


042520 


051440 


040514 




014 760 


042526 


021440 


05144 7 




014 766 


052040 


020117 


0425V./ 




014774 


052040 


Q51S05 


Q4i!M4 
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, SBTTL PROGRAM MESSAGES 

jOPfRATOR INSTRUCTIONS 
M.NAMj .ASCII <CR>a.Fw TM03- TE 16/TU 77 DRIVE FUNCTION T IMt R ( C/TEEEO)' j * >B 



SfcQ 00 79 



.ASCI/ <CR><LF>' TYPE « CR ■ TO TERMINATE RESPONSE C *C TO RESTART 



m.eopj ,asci/ <cr>«if>'f:nd 0* PASS 



M,MSWR: .ASCI/ <CR><L> •> ' HARDWARE SWR IN USE.' <CR»<LF» 



I. REM; .ASCI/ <CR><l.E>' REMOVE TM()P FROM SLAVE 0, CLEAR l.OC, 40 



I.REG; .ASCI/ <CR»<lf '»• TtPF FIRST ADDRESS OF CONTROLLER 



I.ORVSt .ASCI/ *TyPF TM03 DRIVE <T S To Bt TESTED; All. * 



I.Sl.VSj .ASCII * OR TM0 3 DRIVr- ' 



I.ORVi .ASCI/ #0- T1PE SLAVE Q- b TO HE TESTED? Aul. * 



c/imo 


1M03 TtUi- TU/7 


0* 1 


MACU1 


C/TEEE. 


Pll 06-APR-84 


11:05 






01500*? 


035104 


040440 


046114 




015010 


000040 






34^4 


015012 


050123 


042505 


020104 




015020 


042524 


052123 


037523 




015026 


024040 


042531 


027523 




015034 


047516 


035051 


04 7040 




015042 


020117 


000 




34 95 


015045 


015 


042412 


042116 




015052 


04 7440 


020106 


040524 




015060 


042520 


005015 


000 


?4^ 










549 7 










3498 


015065 


015 


052012 


040522 




015072 


050120 


042105 


052040 




015100 


020117 


000064 




3499 


015104 


047516 


041440 


047U7 




015112 


051124 


046117 


042514 




015120 


020122 


052101 


040440 




015126 


042104 


042522 


051523 




015134 


051440 


042520 


044503 




015142 


044506 


042105 


005015 




015150 


000 






31>00 


015151 


124 


030115 


020063 




015156 


051104 


053111 


020105 




015164 


000 






5501 


015165 
015172 


104 
040 


044522 


042526 


5502 


015173 


060 


051440 


040514 




015200 


042526 


040 




3505 


015203 


060 


047040 


052117 




01521G 


040440 


040526 


046111 




015216 


041101 


042514 


04 3040 




015224 


051117 


052040 


051505 




015232 


006524 


000012 




3504 


015236 


04 7516 


052040 


030115 




015244 


026463 


042524 


033061 




015252 


052057 


033525 


020067 




015260 


047125 


052111 


04 3040 




015266 


052517 


042116 


052040 




0152/4 


020117 


042524 


052123 




015302 


005015 


000 




3505 


015305 


123 


04311V 


020124 




01531? 


051105 


04 7522 


020122 




015320 


042050 


052101 


u24501 




015326 


005015 


000 




350b 


015331 


124 


051505 


020124 




015356 


02004 3 


000 




3507 


015341 


040 


042504 


044526 




015346 


042503 


042440 


051122 




015554 


051117 


005015 




3506 


015560 


051503 


004461 


04 152 7 




015366 


041011 


004501 


04 1 506 




015374 


041411 


031123 


0420H 




015402 


004523 


051105 


0520U 




015410 


006503 


0000 1." 




3509 


015414 


04 7440 


052125 


04 7440 



c/ 
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I.SPDj .ASCI/ 'SPEED TESTS? (YES/NO): NO 



M,EOT{ .ASCI/ <CRwLF>*END OF TAPE'<CR><IF> 



i ERROR MESSAGES 

E.TRP4; .ASCI/ <CRwl>>- TRAPPED TO 4 



E.NCON; .ASCI/ 'NO CONTROLLER AT ADDRESS SPECIFIED' <CR > <LF > 



SEG 0080 



E.NORVj .ASCI/ -TM03 DRIVE ' 

E.NSLV; .ASCII 'DRIVE * 

E.DRV: .ASCII '0 SlAvt ' 

E.NAVA; »ASC1/ '0 NOT AVATLABLE f OR TEST* <CR»<l.F » 

E. UNIT j ,ASCI/ 'NO TM03 - TE 16/TU7 7 UNIT FOUND TO TEST ' <CR > « t-F > 



E.SfTi .ASCI/ 'SOFT ERROR C DAM )• <CR»*LF > 

F.HOR: .ASCI/ ■ HsT o ' 

E.HDRlj .ASCII ' DEVICE ERROR' <CR><i F > 

.ASCI/ ' CSV «HT*'WC 'HT^'HA ■ »HT WC *HT^'CS2* *Ml*'OS' *HT*'tR' *hT-* TC *CR^L C * 

E.HDR2j .ASCI/ ' OUT OF RANGE ERROR' *CR**U'> 



NV 



CZTEEEO IM03-TE16/VU7 7 OFT 
CZTEEE.Pll 06-APR-84 11:05 



TYPE1 
nPE2 

nPE3 
T*PE4 

TVPOCT 
UBRF.AK 

UNS 
UNTFND 
UPE 
UAITRD 



WAITTI 

WC 

WCE 

WCHKF 

UfCHKR < 

WFMK 

UFWD 

URDCNT 

WRITE 

I IRL 

WRT.BK 

V'TBUF 

! CHARC 

■■CWTRL 

$CRL.F 

(-CTRLS 

; r NOAD 

Si'Jt.l. 

SMT 

SNUI.l. 

JSVPC 

STKFl.G 

*TPB 

JTPFUG 

5TPS 



.HLT 

.INPUT 
.RESTO 
.REUIN 



SAVE 

SCOPE 

TrPE 



002660 
002 706 
002714 
002720 

001133 

003224 

177770 

040000 
001152 
020000 
005774 



0057 7b 
000002 
040000 
000050 
000056 
000026 
000060 
17/600 
006162 

004000 
00625-; 
017572 
002650 
002631 
002632 
002626 
013676 
002617 
000011 
002616 
000040 
002621 
002624 
002620 
002622 
020172 

004 374 
004070 
003174 
006100 

003152 
004 7 1 
002640 



1880 

2364 

2654 

15504 

15504 

15504 

15504 

12804 

1537 

10884 

11864 

12794 

11534 

22014 

2880 

3058 

3270 

22024 

10964 

11544 

11204 

11214 

11164 

11224 

12164 

2214 

3045 

11674 

22854 

2252 

15504* 

15504+ 

15504 

15504+ 

1240 

15504 

15504 

15504 

12404 

15504 

1550J+ 

15504 

15504 

12264 

12904 

1238 

1539 

1544 

2213 

3475 

1534 

1236 

1232 
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CROSS REFERENCE TPBLE -- USER SYMBOLS 



1884 
2 366 
2659 



1578* 
15864 

1187 
2545 + 

2216 
2895 
3071 
3292 
2205 + 
2304 + 



3327 

2255 

2253 

22514 

3069 

2807 
3220 

1819 + 

1841 + 
1823 



12294 
12924 
1U594 

17814 
1565" 
2229,, 

15544 

19384 
15504 



1887 
2370 
2664 



1586 + 
1707 



2573 + 

2281 
2906 
3075 
3307 



32^3 

2263 
2285 
3098 

2829 
3257 



1845 + 
33754 



1230 
12934 

2374 

1608 
2638 

158 7 



1897 
2373 
2667 



1605 
1865 



3366 

2287 
2920 
3086 
3321 



3260 
2273 
2641 
3102 

2858 
35664 



12404 
12944 

2399 
164? 
2690 

1624 



1900 
2385 
2669 



1616* 
1904 



2291 
2936 
3100 
3335 



2691 
3143 



12414 
12954 

24o8 
1732 

2786 

1/16 



1905 
2398 
2670 



1623 + 
1909 



264 3 
2950 
3104 



2 709 
3290 



12464 
1304 4 

2585 
1773 
2981 

1741 



1910 
2438 
2672 



1638 
2372 



2699 
2972 
3108 



2 729 
3319 



12494 
15504 



1918 
3140 

1859 



1914 
2440 
3350 



2649 



2718 
2993 
3118 



2754 



12514 
1751 



2062 
3217 

2038 



SEQ 0091 



2020 
2467 
3368 



2207 
2529 
3371 



2211 

2584 
3374 



2212 
2648 



2340 
2652 



33/3 



2744 
3004 
3145 



27/5 

3018 
3155 



2796 
3023 
3165 



2818 
3034 
3175 



2846 
304 / 
3241 



2893 



2918 



!948 



2991 



3016 



12544 

2C154 



2102 
3253 

2074 



12574 
20244 



3288 



12684 
3565 



3341 



12704 

3566 



3394 



12844 
3567* 



3431 



B8 



C/TttfO 
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Of 1 


MACUi 


30( 1046) 


06 APR 


-84 11 


{0/ PAGE 


27 














C*Tfctt . 
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CROSS REFERENCE 


TABLE 


-- MACRO 


NAMES 












«>E 


INPUT 


1070* 


1559 


2574 


2599 


2468 


2585 




















RESTOR 


10670 


1608 


1641 


1752 


1/73 


1918 


2062 


2102 
















REWIND 


1075* 


2213 


2656 


2690 


2786 


2981 


3140 


3217 


3253 


3288 


3341 


3394 


3431 


34 75 




SAVE. 


1064* 


158/ 


1624 


1716 


1741 


2038 


2074 


















St? TGO 


10*5* 


2215 


2255 


2286 


2642 


2812 


2832 


2861 


2894 


2900 


2919 


2923 


294 9 


2953 


2992 




2998 


5017 


5021 


5028 


3046 


3052 


3070 


3074 


3080 


3099 


3105 


310/ 


3112 


3144 


3154 




5165 


5169 


5224 


5261 


5291 


3301 


3320 


3329 


3402 


3439 


3454 










TIMCHK 


1080* 


2110 


2124 


269 7 


2716 


2742 


2773 


2794 


2816 


2644 


2878 


2904 


2934 


2970 


3002 




3032 


5056 


5084 


5116 


3173 


3235 


3272 


3305 


3353 


3412 


3464 










T IMF ON 


1077* 


2121 


2692 


2 758 


2769 


2789 


2811 


2840 


,"8 75 


2899 


2931 


2967 


2997 


3027 


305X 




50 79 


5111 


5168 


3232 


3269 


3300 


3328 


3409 


3461 














$CA1CH 


1020* 


1226 




























ICHAIN 


1020* 


2561 




























ICPRtG 


1020* 


1088 




























ICPVFC 


1020* 


1089 




























1 T i PE 


1020* 


1550 




























,1ACU 


1020* 


1240 




























.*EOP 


1020* 


5375 





























SEQ 0092 



♦ ABS. 020172 



000 
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CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.P11 



CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.P11 
CZTEEE.Pll 



CZTEEE.P11 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.P11 
CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.Pll 
CZTEEE.Pll 



CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 
CZTEEE 



.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.Pll 
.PU 



06 -APR. 
06-APR. 
06-APR. 
06-APR. 
06-APR. 
06-APR. 
06-APR, 
06-APR, 
06-APR. 
06-APR. 
06-APR. 
06-APR, 
06-APR. 



06-APR. 
06-APR. 
06-APR. 
06-APR. 
06-APR, 
06-APR. 
06-APR. 
06-APR. 
06-APR. 
06-APR, 
06-APR. 
06-APR. 
06-APfl. 



, ,,B1 
...CI 
...01 
...El 
...Fl 
. . .61 
...HI 
...II 
. ,,J1 
. ..Kl 
...LI 
...Ml 
. ..Nl 



. ..B2 
. ..C2 
. >.D2 
♦ ,.E2 
. . .F2 
...G2 
. ..H2 
...12 
. .,J2 
. ,.K2 
. . .L2 
...M2 
...N2 



C6-APR. , 
06-APR.. 
06-APR.. 
06-APR., 
06-APR.. 
06-APR. . 
06-APR. . 
06-APR.. 
06-APR. . 
06-APR. . 
06-APR.. 
06-APR. . 
06-APR.. 



06-APR. . 
06-APR. . 
06-APR. . 
06-APR, , 
06-APR.. 
06-APR. . 
06-APR.. 
06-APR.. 
06-riPR. . 
06-APR.. 
06-APR. . 
06-APR. . 
06-APR** 



. .83 
. .C3 

. .D3 
..E3 
. .F3 
. .G3 
. ,H3 
..13 
. .J3 
. .K* 
. .L3 
. .M3 
..N3 



. .B4 
. .C4 
..04 
, ,E4 
. .F4 
..G4 
..H4 
..14 
..J4 
. .K4 
. .L4 
..M4 
♦ ♦N4 



CZTEEE.Pll 


06-APR., 


,B5 


CZTEEE.Pll 


06-APR., 


,C5 


CZTEEE.Pll 


06-APR. . 


.05 


CZTEEE.Pll 


06-APR.. 


,E5 


CZTEEE.Pll 


06-APn. . 


.F5 


CZTEEE.Pll 


06-APR,. 


,G5 


CZTEEE.Pll 


06-APR, . 


.H5 


CZTEEE.Pll 


06-APR., 


.15 


CZTEEE.Pll 


06-APR.. 


.J5 


CZTEEE.Pll 


06-APR. . 


>K5 


CZTEEE.Pll 


06-APR. . 


,L5 


CZTEEE.Pll 


06-APR.. 


.M5 


CZTEEE.Pll 


06-APR.. 


,N5 


CZTEEE.Pll 


06-APR.. 


.B6 


CZTEEE.Pll 


06-APR., 


.C6 


CZTEEE.Pll 


06-APR. . 


.06 


CZTEEE.Pll 


06-APR. . 


.E6 


CZTEEE.Pll 


06-APR. . 


.F6 


CZKEEE.P11 


06-APR., 


.G6 


CZTEEE.Pll 


06-APR., 


.H6 


CZTEEE.Pll 


06-APR.. 


.16 


CZTEEE.Pll 


06-APR.. 


. »J6 


CZTEEE.Pll 


06-APR. , 


.K6 


CZTEEE.Pll 


06-APR. . 


.L6 


CZTEEE.Pll 


06-APR.. 


.M6 


CZTEEE.Pll 


06-APR.. 


.N6 


CZTEEE.Pll 


06-APR., 


,B7 


CZTEEE.Pll 


06-APR. , 


.C7 


CZTEEE.Pll 


06-APR.. 


.07 


CZTEEE.Pll 


06-APR.. 


.E7 


CZTEEE.Pll 


06-APR. . 


.F7 


CZTEEE.Pll 


06-APR.. 


.G7 


CZTEEE. Pi; 


06-APR. , 


.H7 


CZTEEE.Pll 


06-APR. . 


.17 


CZTEEE.Pll 


06-APR. . 


,J7 


CZTEEE.Pll 


06-APR. . 


.K7 


CZTEEE.Pll 


06-APR.. 


.L7 


CZTEEE.Pll 


06-APR. , 


.M7 


CZTfcEfc.PH 


06 APR. . 


.N7 


CZT£££ % PU 


06-APR.. 


.B& 



